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

Program sem2_4;
Uses crt;
Label 1;
Var i,j,y: byte;
k: integer;
M: array[1..8] of string[14];
c: char;
Begin
y:=1;
textbackground (0);
clrscr;
window (9,1,26,10);
textbackground (7);
textcolor (7);
clrscr;
M[1]:=' Tools ';
M[2]:=' ’гаЎ® ';
M[3]:=' TP-7 ';
M[4]:=' Borland ';
M[5]:=' Windows ';
M[6]:=' ‘«Ґ¤гойЁҐ ';
M[8]:=' ‚л室 ';
M[7]:=' ђ Ў®в  ';
window (11,3,25,9);
textbackground (9);
textcolor (11);
writeln (M[2]);
writeln (M[3]);
writeln (M[4]);
writeln (M[5]);
writeln (M[6]);
writeln (M[7]);
write (M[8]);
1: window (11,y+1,25,y+2);
textbackground (2);
textcolor (15);
write (M[y]);
sound (100);
delay (5);
nosound;
repeat
c:=readkey
until (c=#72)or(c=#80)or(c=#13)or(c=#75)or(c=#77);
window (11,y+1,25,y+2);
textbackground (9);
textcolor (11);
write (M[y]);
if c=#72 then y:=y-1 else
if c=#80 then y:=y+1 else
if c=#75 then y:=1 else
if c=#77 then y:=8;
if c=#13 then
if y=8 then begin
sound (1000); delay (10); nosound;
exit end else
begin
window (30,5,60,7);
textbackground (y);
textcolor (11);
clrscr;
writeln;
write (' ':9,M[y])
end;
if y=0 then y:=8 else
if y=9 then y:=1;

GOTO 1
end.