Dokonalé čísla (Zadanie 20)

program dokonalecisla; uses crt; var i,j,suc,c:longint; BEGIN clrscr; for i:=2 to 10000 do        begin suc:=0; for j:=1 to i-1 do                BEGIN c:=i mod j;                if c=0 then suc:=suc+j; END; if suc=i then writeln (i); END; readln; end.