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

Program Integer2;

var
  t, kg: integer;

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

end.