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

program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

write (' введите массу в килограммах '); / / вводим с клавиатуры число

read (a);

b: = a div 1000; / / находим количество полных тонн, разделив исходную массу в килограммах на тысячу и выделив из полученного ответа целую часть

writeln (' количество полных тонн в заданной массе = ', b); / / выводим ответ

end.