Example 01 a tolerant program based on retry mode A procedure Get ( I ) reads the characters which are pressed on a keyboard until the 'return' key has been keypressed. These characters are then converted into a decimal value which is assigned to the variable I. If characters different from the figures are provided, the execution of the procedure is suspended and the exception Data_Error is raised.

Define a procedure Safe_Get (I) able to tolerate the keypressing faults.