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

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

begin
x:=20;
y:=6;
a:=40;
k:=8;
m:=10;

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
               t:=y;
               y:=k;
               k:=m;
               m:=t;
               end;
         #72 : begin
               t:=y;
               y:=m;
               m:=k;
               k:=t;
               end;
         #77 : begin
               b:=x;
               x:=a;
               a:=b;
               end;
         #75 : write('change x(x);');
         #13 : begin
               case s of
                      26: pr1;
                      28: pr2;
                      30: exit;
                      end;
               end;
end;
until s=50;
end.