{ Fonction de calcul et retour                 }
{ de n! par methode recursive                  }
{ Définition:                                  }
{  - 0! = 1                                    }
{  - n! = (n-1)!*n                             }
{ n : La valeur pour laquelle n! est calculé   }

entier fonction factoriel(-> entier n)
  entier res
  si n == 0 alors
    res <- 1
    sinon
    res <- factoriel(n-1)*n
  fsi
  retourner res
fin fonction