Нужно спроектировать и реализовать программу расчета таблицы соответствий между мерами - Turbo Pascal

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

Начальное значение меры, шаг изменения этого значения и количество строчек в таблице задать в режиме диалога. Оформить таблицу применяя форматирование вывода. Пример оформления таблицы: Метры] Дециметры] Сантиметры] 3] 30] 300] 5] 50] 500] 7] 70] 700] 9] 90] 900] 11] 110] 1100] Мой вариант: 1 дюйм = 2,54 см = 12 линий И если можно, подайте еще блок-схему алгоритма.

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

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

uses crt;
var d,dn,dk,h,s,l:real;
begin
clrscr;
repeat
write('Начало интервала дюймов dn=');
readln(dn);
until dn>0;
repeat
write('Конец интервала дюймов dk>',dn:0:1,' dk=');
readln(dk);
until dk>dn;
repeat
write('Шаг h<',dk-dn:0:1,' h=');
readln(h);
until h<dk-dn;
writeln('------------------------------');
writeln('| Дюймы | Сантиметры | Линии |');
writeln('------------------------------');
d:=dn;
while d<dk+h/2 do
 begin
  s:=2.54*d;
  l:=12*d;
  writeln('|',d:6:2,' |',s:10:2,'  |',l:6:2,' |');
  d:=d+h
 end;
writeln('------------------------------');
readln
end.

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

Программа начинается с инициализации переменных d,dn,dk,h,s,l типа real и присваивания им начальных значений.
Пользователю предлагается ввести начало и конец интервала дюймов для первой меры (d). После ввода и подтверждения данных программа проверяет, что введенные значения не отрицательны.
Пользователю предлагается ввести шаг для второй меры (h). После ввода и подтверждения данных программа проверяет, что введенное значение не меньше шага для первой меры.
Программа выводит заголовок таблицы соответствий.
Программа начинает заполнять таблицу. Для каждой линии таблицы программа вычисляет значения для первой и второй меры в соответствии с заданными параметрами и выводит их в таблицу.
Программа продолжает заполнять таблицу до тех пор, пока значение первой меры не станет больше или равным значению второй меры плюс половина шага.
Программа выводит последнюю строку таблицы.
Программа просит пользователя ввести данные для следующей пары мер.
Процесс повторяется до тех пор, пока пользователь не введет отрицательное значение для одной из мер.
После окончания ввода данных программа просит пользователя ввести любые дополнительные данные и затем завершает работу.