01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MENU

program menu;
uses crt;
procedure pr1;
begin
clrscr;
write ('‚лЇ®«­по Їг­Єв 1');
readln;
end;
procedure pr2;
begin
clrscr;
write ('‚лЇ®«­по Їг­Єв 2');
readln;
end;
var
key:char;
s,x,y:integer;
{x,y - ®ЇаҐ¤Ґ«пов Ї®«®¦Ґ­ЁҐ Єгаб®а 
s - б㬬  x Ё y}

begin
x:=20;
y:=6;

repeat {--------------------------------------------------------}
textbackground (3);
clrscr;
textcolor (4);
gotoxy (38,3);
write ('Њ…Hћ');
gotoxy (20,6);
write ('Џг­Єв 1');
gotoxy (20,8);
write ('Џг­Єв 2');
gotoxy (20,10);
write ('‚л室');

textbackground (2); {ўлў®¤Ёв ­ ¤ЇЁбЁ Їг­Єв®ў ¬Ґ­о,Ї®¤бўҐзҐ­­лҐ Єгаб®а®¬}
textcolor (blue);
gotoxy (x,y);
s:=x+y;
case s of
26: write ('Џг­Єв 1');
28: write ('Џг­Єв 2');
30: write ('‚л室');
end;

key:=readkey;
if key=#0 then key:=readkey;
case key of
#80 : begin {Є­®ЇЄ  ў­Ё§}
if (s<30) then y:=y+2
else y:=6;
end;
#72 : begin {ўўҐае}
if (s>26) then y:=y-2
else y:=10;
end;
#13 : begin {ўў®¤}
case s of
26: pr1;
28: pr2;
30: exit;
end;
end;
end;
until s=50; {- ­ҐўлЇ®«­Ё¬®Ґ § ¤ ­ЁҐ (ўҐз­л© жЁЄ«)}
end.