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

[Zhasik]

Два числа называют дружественными, если каждое из них равно сумме всех
делителей другого, кроме самого этого числа. Например, 220 и 284 есть
дружественные числа, т. к. делителями первого являются числа
1, 2, 4, 5, 10, 11, 20, 22, 44, 55 и 110, сумма которых равна 284,
а делителями второго - числа 1, 2, 4, 71 и 142, которые в сумме дают 220.
Напишите программу для отыскания 15 других дружественных чисел

[rubius2008]

поиск дружественного числа для n

k:=0; for i:=1 to n-1 do if n mod i=0 then k:=k+i;
s:=0; for i:=1 to k-1 do if k mod i=0 then s:=s+i;
if s=n then writeln('для ',n,' дружественное ',k);

если надо всю прогу пиши в асю 600-927-970