var n,k,j:0..maxint;

function Fac(n:word):longint;
begin
 if n<2 then Fac:=1 else Fac:=Fac(n-1)*n;
end;

function Comb(k,n:word):longint;
begin
 if k>n then Comb:=Fac(k)div(Fac(n)*Fac(k-n)) else
             Comb:=Fac(n)div(Fac(k)*Fac(n-k));
end;

Begin
  Writeln('Introduceti 2 nr. naturale:');
  Readln(n,k);writeln;
  writeln(n,'!=',Fac(n)); writeln(k,'!=',Fac(k));
  if k>n then begin j:=n;n:=k;k:=j;end;
  writeln('Combinatii ',k,' din ',n,' = ',Comb(k,n));
  readln;
End.