计算组合数

声明

　　

　　输入两个整数 n,m ，求在 m 个数中取 n 个数的方案总数：

　　　　

var
        n,m:longint;
function c(n,m:longint):qword;
var
        i:longint;
begin
        c:=1;
        for i:=1 to n do
                c:=c*(m-i+1) div i;
end;
begin
        readln(n,m);
        writeln(c(n,m)); //n<m
end.