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.
