Hola kathy: Segun la definicion de la funcion de ackermann,
A(0, n) = n + 1
A(m+1, 0) = A(m, 1)
A(m+1, n+1) = A(m, A(m+1, n))
Podes implementar una funcion recursiva, y quedaria mas o menos asi:
function A(x, y : LongInt) : LongInt; { funcion de Ackermann }
begin
if (x = 0) then A:= y+1
else if (y = 0) then A:= A(x-1, 1)
else A:= A(x-1, A(x, y-1));
end;
Saludos y espero que te sea de utilidad, Adios y Suerte!!!.
