посчитайте ,отдаю все баллы

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.