Написать программу перевода килограмм в тонны. в программе pascalabc.

Var kg,tn:real;
begin
write('введите вес в килограммах ');
readln(kg);
writeln(kg,' кг. = ',kg/1000,' т.');
end.

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