Данная программа позволяет найти все совершенные числа из промежутка от 1 до заданного n.

var n, i, s, j:integer;
Begin
s:=0;
for i:=1 to 10000 do
  begin
  s:=0;
   for j:=1 to i-1 do
      if i mod j = 0 then s:=s+j;
      if s=i then writeln (i);
   end;
readln
end.