RosettaCodeData/Task/Find-limit-of-recursion/DWScript/find-limit-of-recursion.dw

var level : Integer;

procedure Recursive;
begin
   Inc(level);
   try
      Recursive;
   except
   end;
end;

Recursive;

Println('Recursion Level is ' + IntToStr(level));