Algorithme : Calcule et affiche le factoriel d'un entier positif lu.

Version 1 :
Début
    Variable n, s, i : Entier
    Lire(n)
    s <- 0
    Pour i allant de 1 à n:
        s <- s * i
    FinPour
    Ecrire(s)
Fin

Version 2 :
Début
    Variable n, s, i : Entier
    Lire(n)
    s <- 0
    i <- 1
    Tant que i <= n :
        s <- s * i
        i <- i + 1
    FinTantQue
    Ecrire(s)
Fin

Version 3 :
Début
    Variable n, s, i : Entier
    Lire(n)
    s <- 0
    i <- 1
    Répéter
        s <- s * i
        i <- i + 1
    Jusqu'à i = n
    Ecrire(s)
Fin