program MassToTons;

uses
SysUtils;

var
mass, tons: Integer;

begin
write('Введите массу в килограммах: ');
readln(mass);

// Находим количество полных тонн
tons := mass div 1000;

writeln('Количество полных тонн: ', tons);
end.