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
        
        Si (i <= n) alors
        {
                Répeter
                {
                        fact <-- fact * i
                        i <-- i + 1
                }
                jusqu'à (i > n)
        }
        
        Afficher(n,"! = ", fact,".\n")
        
}