求助：多重∑求和……orz

好吧我承认是个很水的问题……其实这本是我数学作业里的一步……

喏，其实我只要求到4重就行了。

写了个程序，结果总是exitcode201.
求指导，求程序

以下是我写的（错的）
...
program shuxuezuoye;
const k=4;
var s,i,m:integer;
    a:array[0..k] of integer;
function sxzy(i:integer);
begin
a[i]=1;
repeat
a[i]:=a[i]+1;
if i<m then sxzy:=sxzy(i+1)
else sxzy:=sxzy+a[i];
until a[i]=a[i-1];
end;
begin
s:=0;
a[0]:=6;
for m:=1 to k do
s:=s+sxzy(1);
writeln(s);
end.
...是fp...
求助！


没人吗？
如何实现n重求和里n的自动化？

不是几重for循环嵌套，，
而是自动控制for循环的嵌套数量，递增，抑或递减，都可以
总之有人帮个忙吗~~~~><


回复：6楼
我不会这个，但是我建议你用谷歌搜搜，这种东西多写几遍写熟练了就不会有什么201错误了

回复：7楼
谢谢
但是首先我不知道我这个问题属于哪一类算法，这只是我做数学排列组合题时遇到的某一步
另外201解决了，把integer改成longint就ok了
虽然说算下来一个很诡异的10位数……（答案是1000多）

回复：9楼
T T
神马高数啊………………这货不是高数这货它真的不是高数！！！！

回复：11楼
这货就是个累加求和啊，西格玛（∑）i等于1 to n ，i就是1+2+3+。。。n啊，
这货只是个符号它只是个符号，94在你写加号写得想掀桌的时候写这个可以平息心情啊
回复：12楼
正解啊，这94一道排列组合题抽象出来的模型然后计算要用到嵌套∑啊，不过它的确是课内的……不算奥赛……


我现在遇到3重西格玛求和 问题，都是用手在推，请问有什么简便方法吗？ 真心寻求帮助~感谢