fonction factorielle(E n : entier) : entier
{
        variable i,f : entier
        
        f <-- 1 
        
        Pour i de 1 à n
                f <-- f * i
                
        retourne f
}

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

Algorithme Coeff_binomial
{
        variable n, p, coeff : entier
        
        saisirnp(n,p)
        
        coeff <-- factorielle(n)/(factorielle(p)*factorielle(n-p))
        
        Afficher("Le coeff binomial de ", n, " et ", p, " = ", coeff, ".\n")
}