Лабораторная работа: Графическое представление графа

If N>7 Then

For I:=1 To N Do

For J:=1 To N Do

B[I,J]:=Random(3)

else

Begin

For I:=1 To N Do

For J:=1 To N Do

If B[I,J]=9 Then

Begin

Write('Введитесвязь [',I,',',J,']:= ');

Readln(B[I,J]);

B[J,I]:=B[I,J]

End

Else Writeln('Cвязь [',I,',',J,']:= ',B[I,J]);

End

End;

Procedure Linia;

Var K: Integer;

Begin

For I:=1 To N Do

For J:=1 To N Do

If (I=J) And (B[I,J]=2) Then {Циклическаясвязь}

Begin

SetColor(Brown);

For K:=1 To 10 Do

Circle(A[I].X,A[I].Y,K)

End else

If B[I,J]=1 Then {Обычнаясвязь}