program p06;
uses Crt;
var n,k,vysledek : longint;

function fakt(cislo:longint):longint;
var i,f:longint;
begin
  f:=1;
  for i:=1 to cislo do f:=f*i;
  fakt:=f;
end;

begin
clrscr;
write('Vloz cislo n : ');
readln(n);
write('Vloz cislo k : ');
readln(k);
vysledek:=trunc(fakt(n)/(fakt(k)*fakt(n-k)));
writeln('Vysledek je ',vysledek);
repeat until keypressed;
end.