Компьютерная математика: Часть 2. Теория графов. Волченская Т.В - 82 стр.

USES CRT;
label n1,n2;
var
  A : array[1..15,1..15]of integer;
  b, t : array[1..15]of integer;
n,l,x,c,i,j : integer;


  Begin
      clrscr;
writeln('введите количество вершин графа n ');
      read(n);
      writeln('введите матрицу смежности ');
      for i:=1 to n do
      for j:=1 to n do read(A [ i, j ] );
writeln('введите номер вершины графа х ');
      read(x);
      l:=1;
      t [ x ]:=l;
      n1: writeln ('Прямое отображение ‘,l,’-ого порядка ');
         c:=0;
        for i:=1 to n do
                           begin
                             if t [ i ]=l then
                                            begin
                                                 for j:=1 to n do
                                                     begin
                                                      if A[J,I ]=1 then
                                                        begin
                                                         writeln (j,' ');
                                                          if t [ j ]=0 then
                                                             begin t [ j ]:=l+1; c:=c+1; end;


                                                         end;
                            end; end; end;
        if c<>0 then begin l:=l+1; goto n1; end;