Программа на DELPHI:

program CalcTons;
var
mass, tons: integer;
begin
// Ввод массы в килограммах
Write('Введите массу в килограммах: ');
ReadLn(mass);
// Вычисляем количество полных тонн в массе
tons := mass div 1000;
// Выводим результат
WriteLn('Количество полных тонн: ', tons);
end.

Программа запрашивает у пользователя массу в килограммах и находит количество полных тонн в ней, используя операцию деления нацело.