end; (k); ("?"); j:=1 to 15 do
write ("?"); ("?"); j:=1 to 8 do ("?"); ("?"); j: =1 to 4 do ("?"); ("?"); j:=1 to 3 do ("?"); ("?"); j:=1 to 4 do ("?"); ("?"); j:=1 to 5 do ("?"); ("?"); j:=1 to 7 do (« ?" ); ("?" ); j:=1 to 7 do ("?" ); ("?" ); j:=1 to 8 do ("?" ) ; ("?"); j:=1 to 8 do ("?"); ("?");;
until VI=2;;:=0; PRVV:=0; (t, «fl1.txt»); (f, «fl2.txt»);;; («1 - Введення»); («2 - Розрахунок»); (« 3 - Висновок »); (« 4 - Кінець роботи »); (I); I of 1: Vvod (I);
: Raschet (I, PRVV);
: Vivod (I, PRVV);
: begin; («Програма завершує роботу»);;;; I=4.
Додаток Б
Екранні форми
Малюнок 7 - Головне меню.
Малюнок 8 - Меню введення.
Рисунок 9 - Введення значень.
Рисунок 10 - Меню для повторного введення.
Малюнок 11 - Меню для повторного введення.
Рисунок 12 - Меню розрахунку
Малюнок 13 - Меню для повторного розрахунку.
Малюнок 14 - Меню для повторного розрахунку.
Малюнок 15 - Меню для повторного розрахунку.
Малюнок 16 - Меню виведення
Малюнок 17 - Введення величин, необхідний при виведенні.
Малюнок 18 - Таблиця результатів
Малюнок 19 - Таблиця результатів
Малюнок 20 - Повідомлення про завершення роботи
