Написать программу перевода числа метров в километры.(используя программу pascalabc.net)и если можно ,то по ​

var n:integer;

begin

read(n);

write(n div 1000);

end.

program raf105;

var m,km: real;

begin

write('Введите метры: ');

readln(m);

km:= m / 1000;

writeln('Это будет ',km,' км.');

end.

Объяснение:

В километре 1000 метров. Делим количество метров на 1000 и получаем дробное число километров

Тип real принимает числа с цифрами после точки (не целые)