Найти количество длиной N,состоящей только из нулей и единиц, если единиц должно быть равно К. Содержит 2 натуральных числа N,K (2<=K<=N<=12)

program Exercise;

function Fact (x: Word): BigInteger;

var

       p: BigInteger;

       i: Word;

begin

       p := 1;

       for i := 1 to x do

               p := p * i;

       Fact := p

end;        

var

      n, k: Word;

begin

       Read (n, k);

       Write (Fact(n) / (Fact(k) * Fact(n - k)))

end.