совершенные числа

[Zhasik]

Совершенным числом называется целое число, которое равно сумме всех
его сомножителей, за исключением самого этого числа. Напишите программу
получения 15 совершенных чисел. Например, 28 = 1 + 2 + 4 + 7 + 14

[Ponkole]

uses CRT
Var a,n:longint;
function sover(m:longint):boolean;
var i,j:longint;
begin
sover:=false;
j:=0;
for i:=1 to m-1 do
if m mod i = 0 then j:=j+i;
if j= m then sover:=true;
end;
begin
clrscr;
n:=0;
a:=0;
while n < 15 do
begin
while not sover(a) do inc(a);
writeln(a);
inc(n)
end;
readln;readln;
end.

Если несложно оцени работу + ом

[Ponkole]

+ом и комментарием