Algorithme Factorielle
{
        variable n, fact,i : entier

        Afficher("Cet algorithme calcule factorielle du nombre que vous allez saisir.\n")
        Afficher("Veuillez saisir l'entier positif dont on veut calculer la factorielle : ")
        Saisir(n)
        
        fact <-- 1
        
        i <-- 1
        
        Tant que (i <= n)
        {
                fact <-- fact * i
                i <-- i + 1
        }
        
        Afficher(n,"! = ", fact,".\n")
        
}