RosettaCodeData/Task/Exceptions/DWScript/exceptions-3.dw

procedure Test3;
begin
   try
      test2;
   finally
      PrintLn('Test3 finally');
   end;
end;