Вычислить значение величины c= n! / (n-k)! *k! где, например, 5! --факториал числа 5 и 5! = 1*2*3*4*5. pascalabc если можно,то , с функции или процедуры

Program n1;
var n,k: integer;
c: real;
function fact(n: integer): real;
var i: integer;
p: real;
begin
p:=1;
for i := 2 to n do p:=p*i;
fact:=p;
end;
begin
write('n=');
readln(n);
write('k=');
readln(k);
c:=fact(n)/(fact(n-k)*fact(k));
writeln(c);
end.