var a:integer;
begin
writeln('Введите кол-во метров:');
read(a);
writeln('Кол-во полных километров: ', a div 1000);
end.
var a:integer;
begin
writeln('Введите кол-во метров:');
read(a);
writeln('Кол-во полных километров: ', a div 1000);
end.