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
        
        pour i de 1 à n par pas de 1
        {
                fact <-- fact * i
        }
        
        Afficher(n,"! = ", fact,".\n")
        
}