acker_p.p
383 Bytes
program tacker(output);
{ solution of fast growing recursive function ackerman(mc,nc) }
const MC = 3;
NC = 8;
function acker(m, n: integer): integer;
begin
if m = 0
then acker := n + 1
else if n = 0
then acker := acker( m - 1, 1 )
else acker := acker( m - 1, acker( m, n - 1 ) )
end{acker};
begin
writeln (acker( MC, NC ));
end.