[Pascal] Задача про натуральные числа

[Knife]

2 натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей (кроме его самого) другого (например, числа 220 и 284), найти и написать все делители.

Помогите пожалуйста!)

[alex_fcsm]

const n=3000;
var  i,k,p:integer;
    
function Sum(x:integer):integer;
var l,j:integer;
begin
 j:=0;
 for l:=1 to x-1 do
  if x mod l =0 then j:=j+l;
  Sum:=j;
end;
    
begin
for i:=1 to n do
 begin
  k:=Sum(i);
  for p:=i to n do
   if (k=p) and (i=Sum(p)) and (p<>i) then writeln(i,':',p);
 end;
 writeln('=====================')
end.