Program Combinaison;
Var cnp : Real;
n, p : Integer ;
(**************************************)
Function fact (x : Integer) : LongInt;
Var f : LongInt ;
i : Integer ;
Begin
f := 1 ;
For i := 2 To x Do f := f * i;
fact := f ;
End;
(*************************************)
Begin
Repeat
Writeln ('Donner deux entiers : ');
ReadLn (p, n);
Until (0<p) and (p<n);
cnp := fact (n) / (fact (p) * fact (n-p));
Writeln('Combinaison = ', cnp :4:2);
End.