ln (s); (s, a [i]. yea, proi); proi <> 0 thenprob: = false; er ('EROR - vvedeno ne vernoe znachenie') end else
prob: = true; prob = true;
repeat Все аналогічно предедущіх
writeln ('Cena');
readln (s);
val (s, a [i]. pay, proi); proi <> 0 then
продовження тексту програми ...
g1: = 1; Задаємо значення змінної яка успадковує горизонтальне
положення кнопки рівним одному.
k1: = 0; Задаємо значення змінної яка успадковує вертикальне
положення кнопки рівним нулю.
men; Запускаємо процедуру яке відповідає за переміщення кнопок по
горизонтальному меню.
while kod1 <> 27 do Якщо натискання не клавіша ESC то виконувати цикл
begin
men; Запускаємо процедуру переміщення кнопок на горизонтальному
меню
n1: = readkey; Приймає символьне значення натиснутою кнопки
kod1: = ord (n1); Отримуємо код кнопки.
case kod1 of Якщо код дорівнює
: helpp; Запуск довідки
: begin f1: = true; a1: = false; vert; end; Кнопка вниз, запускаємо підміню.
77: begin osn; if g1 <3 then begin gor; inc (g1); men; end else g1: = 1 end;
Якщо натиснута кнопка вправо, то зафарбовуємо область екрану за допомогою
процедури osn після, якщо змінна g1 менше 3, то виконуємо
перемальовування меню, збільшуємо змінну g1 на одиницю, і
запускаємо процедуру меню, якщо змінна g1 більше 3, то
присвоюємо їй значення 1.
75: begin osn; if g1> 1 then begin gor; dec (g1); men; end else g1: = 3 end;
Якщо натиснута кнопка вліво, то зафарбовуємо область екрану за допомогою
процедури osn після, якщо змінна g1 більше 1, то виконуємо
перемальовування меню, зменшуємо змінну g1 на одиницю, і запускаємо
процедуру меню, якщо змінна g1 менше 1, то присвоюємо їй
значення 3.
end;
end;
end.
