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.