Procedure graphic;
var
   grDriver, grMode, ErrCode,
   x, y, n : integer;

Begin
  ClrScr;
  write('BBEDUTE N= ');
  readln(n);
  grDriver:=Detect;
  InitGraph(grDriver, grMode, 'A:\');
  ErrCode:=GraphResult;
  If ErrCode = grOk then
  begin
     x := GetMaxX div 2;
     y := GetMaxY div 2;

     Repeat

        {SetColor(succ(Random(white)));}
        SetColor(White);
        SetLineStyle(0,0,2*Random(2)+1);
        x := Random(GetMaxX);
        y := Random(GetMaxY);
        Circle(x, y, Random(GetMaxY div 5));
        Dec(N);

     Until N=0;

  If ReadKey=#0 then x := ord(ReadKey);
  ReadLn;
  CloseGraph;

  end

else WriteLn('System failure: Matrix Reloaded :D', GraphErrorMsg(ErrCode));

A[i] := Circle(x, y, R)

Const N = 5;
Type crcl = Record
         x,y,r : Integer;
       End;
Var m : Array [1..N] of crcl;

Begin
.....
 For i:=1 to N do
 Begin
   m[i].x:= Round(Random(640));
   m[i].y:= Round(Random(480));
   m[i].r:= Round(Random(400));
 End;
.....
End.

Uses Graph,CRT;
Const
NN=100;
Var
A:Array[1..nn] of record x,y,r:longint; col:byte end;
Gd,gm:integer; n,i,j:longint; color:byte;
Begin
readln(n);

randomize;
for i:=1 to n do {генерируем случайные окружности}
begin
 a[i].x:=random(640);
 a[i].y:=random(480);
 a[i].r:=random(300);
end;

{*** ЗДЕСЬ  ИЩЕМ ВСЕ ПАРЫ  ОКРУЖНОСТЕЙ И ПРОВЕРЯЕМ ПЕРЕСЕКАЮТСЯ ИЛИ НЕТ, И В ЗАВИСИМОВТИ ОТ ЭТОГО ЦВЕТ ВЫДЕЛЯЕМ!!!}

readkey;
GD:=detect; initgraph(gd,gm,'');

{А ТЕПЕРЬ ВЫВОДИМ ВСЕ ОКРУЖНОСТИ НА ЭКРАН}
For i:=1 to n do begin setcolor(a[i].col); circle(a[i].x,a[i].y,a[i].r)end;
readkey;
end.