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.