algo nb_parfait
{
	variables n, s, diviseur : entier 

	s <-- 0

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

	diviseur <-- 1
	tantque (diviseur <= n-1)
	{
		si (n mod diviseur = 0) alors
		{
			s <-- s + diviseur
		}		
		diviseur <-- diviseur + 1
	}

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