Два натуральных числа называются «дружественными», если каждое из них равно сумме всех делителей (кроме его самого) другого

var
  sum1, sum2: Real;
  y, h: Integer;
begin
  for h:=200 to 4000 do begin
    sum1:=0; sum2:=0;
    for y:=1 to h-1 do
      if frac(h/y)=0 then sum1:=sum1+y;
    if h<sum1 then begin
      for y:=1 to Trunc(sum1)-1 do
        if frac(sum1/y)=0 then sum2:=sum2+y;
      if h=sum2 then WriteLn(h:16,sum1:16:0);
    end;
  end;
  Write('Нажмите Enter...'); ReadLn;
end.