algo nb_parfait
{
	variables n, s, diviseur : entier 

	s <-- 0

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

	pour diviseur allant de 1 à n-1
	{
		si (n mod diviseur = 0) alors
		{
			s <-- s + diviseur
		}		
	}

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