Вывести на экран все совершенные числа из диапозона от 1 до N

1) можешь поиздеваться над паскалем, вбей пятое совершенное число 33 550 336: D program c1; var a,b,i,j: integer; begin readln (a); writeln; for i: =1 to a do begin b: =0; for j: =1 to i div 2 do begin if i mod j=0 then b: =b+j; end; if b=i then write (i,'); if i mod 1000=0 then write ('.','); end; end.