Даю 50 баллов!
Задача по информатике:

С клавиатуры вводится расстояние в метрах. Напишите программу, которая находит число полных километров и метров (пример: вы ввели число 4501, в результпте которого вы получите: 4501м=4км 501м)
ПОМОГИИИИТЕ!

У вас что, до сих пор учат ТурбоПаскаль,умерший в 1994 году?

Тогда уж в конце пишите ReadKey, а не Readln, если используете Crt.

Плиз лучший ответ///////////////program d;varn:integer;beginwriteln('Введите число(Метры)');readln(n);writeln('Километры ', n div 1000);writeln('Метры ', n mod 1000);readln;end.

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018Внимание! Если программа не работает, обновите версию!1. Современное решениеbegin  var m:=ReadInteger('Введите расстояние в метрах');  var (km,mm):=(m div 1000,m mod 1000);  Write(m,'км = ',km,'км');  if mm>0 then Writeln(' ',mm,'м') else Writelnend.ПримерВведите расстояние в метрах 45014501км = 4км 501м2. Так часто учат писать в школеprogram Perevod;var  m,km,mm:integer;  begin  Write('Введите расстояние в метрах');  Readln(m);  km:=m div 1000;  mm:=m mod 1000;  Write(m,'км = ',km,'км');  if mm>0 then Writeln(' ',mm,'м')  else Writeln;end.