fonction factorielle(E n:entier) : entier
{
        variable i,f : entier
        
        f <-- 1
        Si (n != 0) alors
        {
                Pour i de 1 a n 
                {
                        f <-- f * i
                }
        }
        retourne f
}


procedure saisie_n_p(S n : entier, S p : entier)
{
        Repeter
        {
                Afficher("Veuillez saisir n et p, tel que n >= p >= 0")
                Saisir(n,p)
        } jusqu'à ((n >= p) ET (p>=0))
}

Algorithme Coeff_binomial
{
        variable n, p : entier
                 
        Afficher("Cet algo calcule le coefficient binomial de n et p\n")
        
        saisie_n_p(n,p)
        
        Afficher("Le coeff binomial de n et p =", factorielle(n)/(factorielle(p)*factorielle(n-p)),".\n")

}