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

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