блок схема

program prog;
uses crt;
Const max=100;
var tabl:array [1..max,1..max] of integer;
     x,y,n,i,j,k,pb:byte;
  begin
  TextBackGround(0); clrscr;
  gotoxy(15,1);writeln(');
  gotoxy(36,2);writeln('');
  gotoxy(18,3);writeln('');
  gotoxy(14,4);writeln('');
  gotoxy(19,5);writeln('');
  gotoxy(12,6);writeln('');
  gotoxy(14,12);writeln('');
  gotoxy(13,13);writeln('');
  gotoxy(45,19);writeln('');
  gotoxy(45,20);writeln('');
  gotoxy(37,24);writeln('');
  gotoxy(1,25);write('');
  readln;
  clrscr;
   Write('Введите число команд участвующих в чемпионате(до 100):');
   x:=wherex;    y:=wherey;
  Repeat  gotoxy(x,y); clreol;  readln(n); until n in [1..max];
  writeln;
  Writeln('заполняем таблицу значениями 0,1,2:');
    writeln('    0-проигрыш');
    writeln('    1-ничья');
    writeln('    2-выйгрыш');
    writeln;
  For i:=1 to n do
    begin
      tabl[i,i]:=0;
       For j:=i+1 to n do
        begin
         write('результат игры команды ',i,' с командой ',j,' : ');
         x:=wherex;   y:=wherey;
         Repeat gotoxy(x,y); clrEol;
                readln(tabl[i,j]);
         until tabl[i,j] in [0..2];
      tabl[j,i]:=2-tabl[i,j];
     end;
  end;
  clrscr;   gotoxy(10,3);
 writeln('Итоговая таблица: ');
 writeln;
 writeln('  0-проигрыш,  1-*ничья,  2-выйгрыш');
 For i:=1 to n do
   begin
     writeln;  write(' ':15,i,'  ');
     For J:=1 to n do write(tabl[i,j]:3);
    end;
  writeln;
 
   K:=0;
  For i:=1 to n do
  Begin
    pb:=0;
     For j:=1 to n do
      If tabl[i,j] in [1,2] then pb:=pb+1;
       If pb=n-1 then
       begin k:=k+1;
   writeln;
   writeln('чемпионат без поражения прошла ',i,'-я команда* ');
   end;
   end;
   if k=0 then
   Writeln('команд прошедших чемпионат без поражений, не оказалось');
   gotoxy(40,24); Write('');
  readln;
End.

gotoxy(15,1);writeln(');