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

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