Создать в PascalABC программу по переводу тонн в килограммы

uses crt;

var k,t:real;

begin

clrscr;

write('Введите килограммы: ');

Readln(k);

t:=k/1000;

Writeln('Это составляет ',t,'  тонн');

end.