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

var

kg : real; / / объявляем переменную, в которой будем хранить значение килограмм

t : real; / / объявляем переменную, в которой будем хранить значение тонн

begin

writeln ('Введите количество килограмм:'); / / выводим на экран текстовую строку

readln (kg); / / вводим с клавиатуры значение килограмм

t : = kg/1000; / / переводим килограммы в тонны

writeln (kg, ' кг. = ', t, ' т.'); / / выводим на экран строку соответствия килограмм и тонн

end.