program ack(input, output);
VAR  i,j,k,k1 : integer;


function ackermann(m,n: integer): integer;
begin
      if m=0 then ackermann := n+1 else begin
         if n=0 then ackermann := ackermann(m-1,1) else
         ackermann := ackermann(m-1,ackermann(m,n-1));
      end;
end;

begin
         write('Param?'); readln(i);
         for k := 1 to 10 do
            j:=ackermann(3,i);
         writeln('Finish', chr(7));
END.