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

var
kg : real;                      // объявляем переменную, в которой будем беречь значение килограмм
t : real;                       // объявляем переменную, в которой будем беречь значение тонн
begin
writeln(Введите количество килограмм:);         // выводим на экран текстовую строчку
readln(kg);                                                       // вводим с клавиатуры значение килограмм
t := kg/1000;                                                   // переводим килограммы в тонны
writeln(kg, кг. = , t, т.);                // выводим на экран строку соответствия килограмм и тонн
end.