lập trương trình tính ckn=n!/k!(n-k)! trong đó dùng hàm tính n!. giúp mình với ạ . cảm ơn ạ

uses crty;

var i,n,k: integer;

cnk: longint;

function GT(n: integer): longint;

var i: integer;

begin

GT:=1;

for i:=1 to n do

GT:=GT*n;

end;

begin

clrscr;

write (‘nhap n: ‘);  readln (n);

write (‘nhap k: ‘);  readln (k);

ckn:=GT(n)/GT(k)*GT(n-k);

writeln (‘Ket qua: ‘,ckn);

readln;

end.