Algorithme Factorielle
{
        variable n, i, fact : entier
        
        Afficher("Saisir le nombre dont vous voulez la factorielle : ")
        Saisir(n)
        
        fact <-- 1
        
        Si (n!=0) alors
        {
                i <-- n
                Repeter
                {
                        fact <-- fact * i
                        i <-- i - 1
                } jusqu'à (i < 1)
        }


        Afficher(n,"! = ", fact, ".\n")
}