Find limit of recursion is part of Short Circuit's Console Program Basics selection.
Task

Find the limit of recursion.




var level : Integer;
 
procedure Recursive;
begin
   Inc(level);
   try
      Recursive;
   except
   end;
end;
 
Recursive;
 
Println('Recursion Level is ' + IntToStr(level));