Количество сочетаний из n по k элементов

{Задача: найти количество сочетаний из n по k элементов}

 program combinations;
 uses crt;

 { Функция принимает p, возвращает p! = 1*2*3*...*p }
 function fact( p : integer ) : integer;
 var mult : integer;
     current : integer;
 begin
     mult := 1;
     for current := 2 to p do
         mult := mult * current;
     result := mult;
 end;

 { Функция возвращает количество сочетаний из n по k элементов}
 function Cnk( n, k : integer ) : real;
 begin
     result := fact(n) / ( fact(k) * fact(n-k) );
 end;

 var comb : integer; // количество сочетаний из n по k элементов
        n : integer; // количество всех элементов
        k : integer; // количество элементов в группе

 begin
    write('Введите количество всех элементов: '); readln(n);
    write('Введите количество элементов в одной группе: '); readln(k);

    writeln('Количество сочетаний из ',n,' по ',k,' = ', Cnk(n, k) );
 end.