Algorithme Nombre_Parfait
{
        variable n, somme,i : entier

        Afficher("Cet algorithme calcule si un nombre saisi est parfait (comme moi !).\n")
        Afficher("Veuillez saisir l'entier : ")
        Saisir(n)
        
        somme <-- 1
        
        Pour i de 2 à PartieEntiere(n/2)+1 par pas de 1
        {
                Si (n mod i = 0) alors
                {
                        somme <-- somme + i
                }
        }
        
        Si (n = somme) alors
        {
                Afficher("Le nombre est parfait (comme moi) !\n")
        }
        sinon
        {
                Afficher("Le nombre est comme vous : non parfait !\n")
        }
        
        
}