Составить программу перевода 1-ого дюйма в сантиметры. (р.s: 1 дюйм=2,54 см)

Var a: integer; var d: real; begin write('введите дюймы: '); readln(a); d: =a*2.54; writeln(a,'(дюйм) = ',d,' (см)'); end.

Программа 1 создаётся обработка нажатия кнопки объявляется переменная a и s типа int a присваивается значение 2 строки 2 столбца из таблицы excel s и   i приравниваются к нулю цикл до тех пор, пока s не будет больше a, в котором выполняется прибавление единицы к s и i также в цикле происходит заполнение i + 1 строки 1 столбца. программа 2 создаётся обработка нажатия кнопки объявляется r2, r3, r1beg, r2end, dr1, r12, r13, r23 типа float r2 парсит значение из ячейки 3 строки 1 столбца ( скорее всего, примерная аналогия к r3 парсит значение 3 строки 2 столбца r1beg 3 строки 3 столбца r1end 3 строки 4 столбца dr1 3 строки 5 столбца значению numrow присваивается 6 создаётся цикл: r1 = r1beg с условием, пока r1 не будет меньше или равен r1end, при этом каждую итерацию происходит добавление dr1 к r1 в этом цикле r12 присваивается значение r1 + r2 + (r1 * r2 / (double)r3), причём r3 явно приводится к типу double так же происходит и с r13, которому присваивается r1 + r3 + (r1 * r3 / (double)r2) так же происходит и с r23, которому присваивается r2 + r3 + (r2 * r3 / (double)r1) поочередно в ячейки numrow строки 1-4 (с первого по четвёртый) столбца заносятся к строке значения r1, r12, r13, r23, после чего к numrow добавляется единица. программа 3 создаётся цикл, где i = 1 с условием i меньше или равно 5, i с каждой итерацией прибавляет к себе единицу берётся значение ячейки 3 строки i столбца и приравнивается к пустой строке ("") создаётся цикл, где j = 6 с условием j меньше или равно 16, j с каждой итерацией прибавляет к себе единицу берётся значение ячейки j строки 1 столбца и приравнивается к пустой строке ("") создаётся цикл, где k = 6 с условием k меньше или равно 16, k с каждой итерацией прибавляет к себе единицу берётся значение ячейки k строки 2 столбца и приравнивается к пустой строке ("") создаётся цикл, где a = 6 с условием a меньше или равно 16, a с каждой итерацией прибавляет к себе единицу берётся значение ячейки a строки 3 столбца и приравнивается к пустой строке ("") создаётся цикл, где b = 6 с условием b меньше или равно 16, b с каждой итерацией прибавляет к себе единицу берётся значение ячейки b строки 4 столбца и приравнивается к пустой строке ("")