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

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