Пересчет расстояния из верст в километры - Free Pascal

Формулировка задачи:

Написать программу пересчета расстояния из верст в километры (1 верста равняется 1066,8м).

Решение задачи: «Пересчет расстояния из верст в километры»

Листинг программы

program versty;
uses crt;
var a, b: real;
begin
  clrscr;
  writeln ('Введите расстояние в верстах');
  readln (a);
  b:=a/1.0668
  writeln (a, 'в.=', b, ' км');
  readkey
end.

Объяснение кода листинга программы

Объявление переменных a и b типа real.
Очистка экрана с помощью функции clrscr.
Вывод сообщения с помощью функции writeln, запрашивающего ввод расстояния в верстах.
Считывание значения переменной a с помощью функции readln.
Пересчет расстояния из верст в километры по формуле b = a / 1.0668.
Вывод результата пересчета на экран с помощью функции writeln.
Ожидание нажатия клавиши с помощью функции readkey.
Конец работы программы.