Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. (программа Паскаль)

Question

Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N

Answer 1

program delitel_cisla;
var i,h,del,f:longint;
begin
writeln('napiste maximalni cislo');
f:=0;
readln(i);
while i>=1
 do
 begin
   for del:=1 to i do
    if(i mod del)=0 then
    begin
     {writeln('delitel= ', del);}
       f:=f+del;
    end;
   h:=f-del;
   {writeln('suma delitelej=', h);}
   f:=0;
   i:=i-1;
    if h=del then writeln('sovershennoje cislo = ', h)
 end;
end.