Ответ:
program raf105;
var m,km: real;
begin
write('Введите метры: ');
readln(m);
km:= m / 1000;
writeln('Это будет ',km,' км.');
end.
Объяснение:
В километре 1000 метров. Делим количество метров на 1000 и получаем дробное число километров
Тип real принимает числа с цифрами после точки (не целые)