program exp_2;
var x:integer;
function hs(i:integer):integer;
var
m:array [1..100]of integer;
begin
i:=3;
repeat
m[i]:=m[i-1]*3-1;
i:=i-1;
m[1]:=1;
until(i=1);
hs:=m[3];
end;
begin
x:=3;
write('N(3):= ',hs(x));
end.

运行的时候第一个出现的结果是N(3):=-1 然后才是N(3):=5; 我不知道哪里出错了.是不是因为非局部变量的副作用?

function hs(i:integer):integer;
begin
if(i=1) then
hs:=1
else
hs:=(hs(i-1)*3)-1;
end;