Algorithme Factorielle
{
        variable n, res, cpt : entier
        
        
        Afficher("Saisir le nombre dont vous voulez la factorielle ")
        Saisir(n)
                
        res <-- 1
        
        Si (n != 0) alors
        {
                cpt <-- n
                
                Tant que (cpt != 1)
                {
                        res <-- res * cpt
                        cpt <-- cpt - 1 
                }
                
         
        }
        
        Afficher("La factorielle de ", n, " est ", res, ".\n")
}