Program t1;
function ACK(M,N:integer):integer;
begin
if M=0 then ACK:=N+1
else if N=0 then ACK:=ACK(M-1,1)
else ACK:=ACK(M-1,ACK(M,N-1))
end;
begin writeln(ACK(2,5));
end.
程序运行的结果是：
输出：13