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 <-- 1
                Repeter
                {
                        fact <-- fact * i
                        i <-- i + 1
                } jusqu'à (i > n)
        }


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