自己想的一个阶乘程序，请问为什么我输入21以上的数会出现exitcode=215的提示?

超int64上限

使用高精度吧

//忘贴代码了,代码如下
var
n,i,k,cs,jw,ws:longint;
a,b,c:array[1..23000] of longint;
begin
readln(n);
a[1]:=1;
ws:=1;
for k:=1 to n do
begin
jw:=0;
for i:=1 to ws do
begin
a[i]:=a[i]*k+jw;
jw:=a[i] div 10;
a[i]:=a[i] mod 10;
end;
while jw<>0 do
begin
inc(ws);
a[ws]:=jw mod 10;
jw:=jw div 10;
end;
end;
write(a[ws]);
for i:=ws-1 downto 1 do
write(a[i]);
writeln;
end.