nombre parfait

ÉNONCÉ

Un nombre parfait est un entier positif caractérisé par le fait qu’il est égal à la somme de tous ses diviseurs excepté lui-même. Le premier nombre parfait est 6 qui est égale à 1 + 2 + 3 qui sont les diviseurs de 6.
Ecrire une analyse et en déduire un algorithme qui lit un entier et détermine s’il est parfait ou non.

PASCAL

program parfait;
uses wincrt;
var
i,n,somme:integer;
begin
writeln('donner un entier');
readln(n);
somme:=0 ;
for i:=1 to n div 2 do
begin
if n mod i=0 then somme:=somme+i;
end;
if n=somme then write(n,' est un entier parfait')
else write(n,' n"est pas un entier parfait');
end.