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.