Напишите программу, которая сможет переводить километры в метры, сантиметры, миллиметры, и наоборот - Pascal

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

Напишите программу, которая сможет переводить километры в метры, сантиметры, миллиметры, и наоборот.

Решение задачи: «Напишите программу, которая сможет переводить километры в метры, сантиметры, миллиметры, и наоборот»

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

var
    r: real;
begin
  Write('Введите величину:'); ReadLn(r);
  writeln('км':18,'м':18,'см':18,'мм':18);
  writeln(r:18:6,r*1000:18:6,r*1e5:18:6,r*1e6:18:6);
  writeln(r/1000:18:6,r:18:6,r*100:18:6,r*1000:18:6);
  writeln(r/1e5:18:6,r/100:18:6,r:18:6,r*10:18:6);
  writeln(r/1e6:18:6,r/1e4:18:6,r/10:18:6,r:18:6 );
end.

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

Введенная величина хранится в переменной r типа real.
Выводятся единицы измерения величин: км, м, см, мм.
Выводится величина в километрах, затем в метрах, сантиметрах и миллиметрах, используя формат вывода с указанием количества знаков после запятой (18:6).
Выводится величина в метрах, затем в сантиметрах и миллиметрах.
Выводится величина в сантиметрах, затем в миллиметрах и метрах.
Выводится величина в миллиметрах, затем в метрах и сантиметрах.
Выводится величина в километрах, затем в метрах, сантиметрах и миллиметрах, используя формат вывода с указанием количества знаков после запятой (18:6).
Выводится величина в метрах, затем в сантиметрах и миллиметрах.
Выводится величина в сантиметрах, затем в миллиметрах и метрах.
Выводится величина в миллиметрах, затем в метрах и сантиметрах.
Выводится величина в километрах, затем в метрах, сантиметрах и миллиметрах, используя формат вывода с указанием количества знаков после запятой (18:6).
Выводится величина в метрах, затем в сантиметрах и миллиметрах.
Выводится величина в сантиметрах, затем в миллиметрах и метрах.
Выводится величина в миллиметрах, затем в метрах и сантиметрах.
Выводится величина в километрах, затем в метрах, сантиметрах и миллиметрах, используя формат вывода с указанием количества знаков после запятой (18:6).
Выводится величина в метрах, затем в сантиметрах и миллиметрах.
Выводится величина в сантиметрах, затем в миллиметрах и метрах.
Выводится величина в миллиметрах, затем в метрах и сантиметрах.
Выводится величина в километрах, затем в метрах, сантиметрах и миллиметрах, используя формат вывода с указанием количества знаков после запятой (18:6).
Выводится величина в метрах, затем в сантиметрах и миллиметрах.