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

а блок схему можешь составить

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