主题：[求助]金字塔如何用自编循环实现乘积函数功能

不行啊 ，请看提示图，请下次帮我试运行你的代码，看看结果是否OK

n:=barpos;
a:=c/ref(c,1);
runmode:1;
b:=1;
for i=1 to UBOUND(n) do begin（这行提示UBOUND所调用的参数和预定义的参数不符）
b:= b * a[i];
end
cc:b*1000;

你可以把我这些代码运行看看