Напишите программу которая вводит натуральное число N и находит все совершенные…

Var i, j, n, p: integer; begin readln (n); for i: =1 to n do begin p: =0; for j: =i — 1 downto 1 do if (i mod j=0) then p: =p+j; if p=i then writeln (i, '- совершенное число'); end; end.