Программа должна переводить введенное число через клавиатуру из метра в километры

Uses crt;

var a:Real; [тип Real присваиваем для того, чтобы число можно было делить]

Begin

Readln (a) ; [Вводим с клавиатуры число]

Writeln (a, ' м = ', а/1000, 'км.') ; [программа сначала выводит данное ранее число, затем сразу делит его на 1000 и показывает результат]

End.