第九个点为什么过不去？标答4960，我输出0

program num_139;

var m,n:qword;

function c(m,n:qword):qword;

var i:longint;

tp:qword;

begin

tp:=1;

for i:=n downto (n-m+1) do

tp:=tp*i;

for i:=2 to m do

tp:=tp div i;

c:=tp;

end;

begin

readln(n,m);

if m=0

then begin

write(1);

halt;

end

else if m=1

then write(n)

else write(c(n,m+n-1));

end.

最后不得已用判断0过的……

求数据

var

n,m,i:longint;

ans:int64;

begin

readln(n,m);

ans:=int64(1);

for i:=n+m-1 downto n do ans:=ans*int64(i);

for i:=1 to m do ans:=ans div int64(i);

writeln(ans);

end.

这

主要想知道我错哪了……以后可以注意点

没人么，再次求助