Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг)

Program Integer2;
var t,kg:integer;
begin
writeln('Enter please Kg=');
readln(kg);
t:=kg div 1000;
writeln('B ',kg,'kg= ',t,'ton.');
end.

автор: Zakirov Nail a.k.a. ZevsNet