Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга - Turbo Pascal - Ответ 1417233

label ex;
type krug = record
  x,y : double;
  r : double;
end;
 
Function S(a, b : krug) : double;
begin
  S := sqr(a.r)*pi + sqr(a.r)*pi;
end;
 
Function P(a, b : krug) : boolean;
begin
  if sqrt(sqr(a.x - b.x) + sqr(a.y - b.y)) - a.r - b.r > 0
  then P := true
  else P := false;
end;
 
var
  ar : array [1..4] of krug;
  i, j, m1, m2 : integer;
  smax : double;
begin
  Write('1-y krug : '); Readln(ar[1].x, ar[1].y, ar[1].r);
  Write('2-y krug : '); Readln(ar[2].x, ar[2].y, ar[2].r);
  Write('3-y krug : '); Readln(ar[3].x, ar[3].y, ar[3].r);
  Write('4-y krug : '); Readln(ar[4].x, ar[4].y, ar[4].r);
 
  smax := 0; m1 := 0; m2 := 0;
  for i := 1 to 4 do
    for j := 1 to 4 do
      if (i <> j) and P(ar[i], ar[j])
      then
        if smax < S(ar[i], ar[j])
        then begin
          m1 := i;
          m2 := j;
          smax :=  S(ar[i], ar[j]);
          goto ex;
        end;
 
  ex :
  if smax > 0
  then writeln('S = ', smax:0:10, ' ', m1:3, ' ', m2)
  else writeln('Net');
 
  readln;
end.