Nhập hai số nguyên dương k và n(k<n) tính C=k!*n!/(n-k)! .tính và sử dụng hàm tính x! M.n giúp mk với mk cảm ơn

uses crt; var n,k:longint; c:real; function gt(a:longint):longint; var i:longint; begin gt:=1; for i:=1 to a do gt:=gt*i; end; begin clrscr; write('Nhap k: ');readln(k); write('Nhap n: ');readln(n); c:=gt(k)*gt(n)/gt(n-k); writeln('C= ',c:0:5); readln end.