{ расположение окружностей}
var a: array [1..1000] of integer;
    i,j,n: integer;
    x,y,r: real;
begin
  write('число окружностей:  ');
  readln(n);
  write('x = ');  readln(x);
  write('y = ');  readln(y);
  r:=sqrt(x*x+y*y);
  writeln('точка на расстоянии  ',r:6:2,
         '  от начала координат');
{ формирование массива окружностей }
  Randomize;
  for i:=1 to n do
  begin
    a[i]:=Random(50);
    writeln('номер:  ',i,'  радиус:  ',a[i]);
  end;
{ цикл по массиву }
  for i:=1 to n do
  begin
    for j:=i+1 to n do 
    begin
      if ((a[i]<r) and (a[j]>r)) or
         ((a[i]>r) and (a[j]<r)) then
         writeln('точка между окружностями:  ',i,' ',j);
    end;
  end;
{ индексы четных элементов}
  write('индексы четных элементов:  ');
  for i:=1 to n do 
  if a[i] mod 2 = 0 then write(i,' ')
end.