Ребят, помогите! Задачка на олимпиаде:

Задача 2. Функция Аккермана I
Известно, что функция Аккермана A(m,n) определена для всех неотрицательных чисел m и n
следующим образом:
A(0,n)=n+1 (при n>= 0)
A(m,0)=A(m-1,1)(при m>0)
A(m,n)=A(m-1,A(m,n-1)) (при m,n>0)
Вычислите значения A(1,1) и A(2,0) используя рекурсию.

==================
Эту задачу я сделал, вот прога:
program chick;
uses Crt;
var a,k,m,n:integer;
function akerman(m,n:integer) :integer;
begin
if (n>=0) and (m=0) then akerman:=n+1;
if (n=0) and (m>0) then akerman:=akerman(m-1,1);
if (m>0) and (n>0) then akerman:=akerman(m-1,akerman(m,n-1));
end;

BEGIN
Clrscr;writeln('Vvedite m i n');
readln(m);
readln(n);

a:=akerman(m,n);
writeln(a);

readln;
end.


======================

1.Используй теги [code=delphi][/code]
2.Где собственно вопрос???

Блин забыл..

Надо сделать то же самое но без рекурсии ( Не знаю как!

Да, прикольная задачка. Ничего не скажешь.
Как только пытаешься решать ч/з циклы, так просто и просится рекурсия(хлебом не корми, дай
рекурсию использовать ).
Но помоему, если все обмозговать, то она решается и ч/з циклы.
Исписал несколько листиков решением. Что-то получил, но что именно пока неизвестно. Будем мозговать дальше

Памяти сожрется немеряно...

Резервируем массив двумерный. И начинаем заполнять снизу вверх... за 1 проход заливаем все что заливается... и потом берем нужные результаты из заполненных элементов.

Поскольку второй индекс может быть зарезервирован с недостатком - делаем массив динамическим.