Вывести на экран все совершенные числа из диапозона от 1 до N (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.