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

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