Определить, в каком из кругов находится наибольшее число кругов из данного множества кругов - PascalABC.NET - Ответ 8622193

type krug=record
          x,y,r:real;
          end;
const nmax=20;
var k:array[1..nmax]of krug;
    n,i,j,q,max,imax:integer;
begin
repeat
writeln ('Введите кол-во кругов от 3 до ',nmax);
readln (n);
until n in [3..nmax];
for i:=1 to n do
 begin
  writeln('Введите координаты центра и радиус круга ',i);
  readln (k[i].x,k[i].y,k[i].r);
 end;
max:=0;
for i:=1 to n do
 begin
  q:=0;
  for j:=1 to n do
  //если номер не совпадает и расстояние между центрами не больше
  //разности радиуса искомого круга и проверяемого, то проверяемвй входит в искомый
  if(j<>i)and(sqrt(sqr(k[j].x-k[i].x)+sqr(k[j].y-k[i].y))<=k[i].r-k[j].r)
  then q:=q+1;
  if q>max then
   begin
    max:=q;
    imax:=i;
   end;
 end;
if max=0 then write('Нет кругов, полностью лежащих в другом круге')
else write('Наибольшее количество кругов, равное ',max,' содержится в круге номер ',imax);
end.