var
  found:boolean;
  sum,n,i:integer;
  point_x,point_y,miny,maxy,minx,maxx,r:real;
  mas:array[1..50] of real;
  x, y: array[1 .. 50] of real;

begin
  Writeln('Введите кол-во окружнростей-');
  readln(n);
  Writeln('Введите радиус окружностей-');
  minx:=0;maxx:=0;
  miny:=0;maxy:=0;
  for i:=1 to n do
    readln(mas[i]);

  for i:=1 to n do begin
    x[i]:=mas[i]*(cos(2*pi/n*(i-1)));{нахождение декартовых координат}
    y[i]:=mas[i]*(sin(2*pi/n*(i-1)));
    writeln(x[i]:2:2,'   ',y[i]:2:2);
    {нахождение min и max значения x и y}

    if x[i]-mas[i]<=minx then minx:=x[i]-mas[i];
    if x[i]+mas[i]>=maxx then maxx:=x[i]+mas[i];
    if y[i]-mas[i]<=miny then miny:=y[i]-mas[i];
    if y[i]+mas[i]>=maxy then maxy:=y[i]+mas[i];
  end;

  writeln(minx:2:2,'  ',maxx:2:2,'  ',miny:2:2,'  ',maxy:2:2);

  randomize;
  point_x:=random(round(maxx-minx+1))+minx;
  point_y:=random(round(maxy-miny+1))+miny;

  i := 1; found := False;
  While (i <= n) and not found do begin
    If Sqrt(sqr(point_x-x[i])+sqr(point_y-y[i]))<=mas[i] then found:=true
    else inc(i);
    end;
  write(point_x:3:3, ', ', point_y:3:3);
  if found then writeln(' is inside circle #', i)
  else writeln(' is outside');
end.