Объяснение:
uses crt;
var k,t:real;
begin
clrscr;
write('Введите килограммы: ');
Readln(k);
t:=k/1000;
Writeln('Это составляет ',t,' тонн');
end.
