-- except.adb

with Ada.Text_Io; use Ada.Text_Io;

procedure Except is                   -- example of exceptions
  Exception1 : exception;
begin
  put_line("Before exception");
  raise Exception1;                   -- raising an exception
  put_line("After exception");
exception                             -- the exception handler
  when others=>
    put_line("In exception handler");
end Except;