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

Uses crt;
var a:Real; [тип Real присваиваем для того, чтоб число можно было разделять]
Begin
Readln(a); [Вводим с клавиатуры число]
Writeln(a, ' м = ', а/1000, 'км.'); [программка поначалу выводит данное ранее число, затем сходу делит его на 1000 и указывает итог]
End.