составить программму на паскале

[Вера Викторовна]

помогите решить задачу: Порадить первые пять совершенных чисел (суммировать все делители) записать программу на паскале

[Ushka1]

var  k, S  :integer;
       i, j   :longint;
begin
k:= 0;
i:= 1;
while( k <> 5 ) do begin
     S = 0;
     for j:= 1 to i do 
         if( i mod j = 0 ) then 
              S:= S + j;
     if( S = i ) then begin
          writeln( i );
          inc( k );
     end;
     inc( i );
end;
end.

компилятора под рукой нет, но должно работать, проверьте)

[Анатоль]

6 28 496 8128...
ПРогу сама напиши.
5ое число не нашёл потому что прогу в лоб делал и она долго работает
так что мне в лом ждать пока она закончит свою работу. Но могу тебе сказать что 5ое совершенное число точно больше 150000.