-- Demonstrates exception handling -- Program terminates when exception occurs -- Begin-exception-end is similar to a java try-catch with ada.text_io; use ada.text_io; with ada.integer_text_io; use ada.integer_text_io; procedure excep1a is n: Natural; begin get(n); put_line(n'img); exception when data_error => put_line("You must enter a number!"); when constraint_error => put_line("You must enter an non-negative value!"); when end_error => put_line("Premature end of file!"); when others => put_line("Unknown exception occurred!"); end excep1a;