Algorithme nb_parfait_avec_pour
{
	variable n, s, diviseur : entier 

	s <-- 0

	Afficher("Saisir le nombre à tester : ")
	Saisir(n)

        Pour diviseur de 1 à n-1 par pas de 1
        {
		Si (n mod diviseur = 0) alors
		{
			s <-- s + diviseur
		}		
	}

	Si (n=s) alors
	{
		Afficher("Le nombre est parfait, comme nous !\n")
	}
	sinon
	{
		Afficher("Il n'est pas parfait.\n")
	}
}