var
a,b,i,j:integer;
{определение суммы делителей числа}
FUNCTION summ_del(const x:integer):integer;
var
s:integer;
BEGIN
s:=0;
for i:=1 to x-1 do
if x mod i =0 then s:=s+i;
summ_del:=s;
END;
BEGIN
for j:=2 to 1000 do
begin
a:=summ_del(j);
b:=summ_del(a);
if j=b then writeln(j,' - ',a);
end;
END.
* переменная a — сумма делителей числа от 2 до 1000;
* переменная b — сумма делителей числа a;
* переменные i,j — для цикла.