Algorithme nombre parfait

program Si_N_Est_Parfait;

var N, I, Somme : Integer;

begin

N := 8128;

Somme := 1; // N / N = 1;
for I := 2 // Sauf le nombre lui meme N / 1 = N
to N div 2 do { La somme est initialisée à 1,
inutile d'allonger les divisions jusqu'à N / N }
if N mod I = 0 then
Somme := Somme + N div I;

if Somme = N then
WriteLn(N, ' est un nombre parfait') else
WriteLn(N, ' n''est pas un nombre parfait');

ReadLn;
  { TODO -oUser -cConsole Main : placez le code ici }
end.