1 -- block.adb: an Ada block using exception handling for input errors 2 3 Input: begin 4 5 Float_IO.Get (Price); 6 Float_IO.Get (Tax_Rate); 7 Tax := Tax_Rate * Price; 8 9 exception 10 11 when Text_IO.Data_Error | Constraint_Error => 12 Text_IO.Put_Line ("Invalid data."): 13 14 when Text_IO.Device_Error => 15 Text_IO.Put_Line ("Hardware error."): 16 17 end Input;