Дана масса в кг. используя операцию разделенья нацело, надобно отыскать кол-во

Program perevod_kilo_v_tonni;
Var
massa, tonn: integer;
begin
writeln ( Введите массу в килограммах: );
readln (massa);
begin;
tonn := massa div 1000;
end;
writeln (tonn);
end.

(Программка испытана в PascalABC)

Оператор div оставляет целую часть от дробления. В 1 тонне 1000 килограмм, потому массу в килограммах разделяем на 1000.