%begin
%integer  i,j,k,k1


%integerfn ackermann(%integer m,n)
     %if m=0 %then %result = n+1 %else %start
         %if n=0 %then %result = ackermann(m-1,1) %else  %c
         %result = ackermann(m-1,ackermann(m,n-1));
      %finish;
%end;

         printstring("Param?"); read(i);
         %cycle  k = 1 ,1,10
            j=ackermann(3,i);
         printstring("Finish")
         %repeat
                              %endofprogram