Algorithme Factorielle_avec_pour
{
        variable val, x, cpt : entier

        Afficher("Saisissez un nombre entier strictement positif:")
        Saisir(val)
        
        x <-- 1
        
        Pour cpt de 1 a val par pas de 1
        {

                x <-- x * cpt
        }
        
        Afficher("La factorielle de ",val, " est ", x,".\n")
}