With Ada.Text_IO; Use Ada.Text_IO;  
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
With Ada.Exceptions; Use Ada.Exceptions;
 
procedure Program is
  EExceptonA, EExceptonB, EExceptonC, EExceptonD: exception;
begin
  -- 任意の処理
  begin
    raise EExceptonA with "Excepton Message"; -- ここを EExceptonB / C / D とかに変えてみてね
  exception
    when EExceptonA | EExceptonB =>
      Put_Line("Excepton A or B"); 
    when EExceptonC =>
      Put_Line("Excepton C");
    when E: others =>
      Put_Line(Exception_Message(E)); 
      raise;
   end;
end Program;

V2l0aCBBZGEuVGV4dF9JTzsgVXNlIEFkYS5UZXh0X0lPOyAgCldpdGggQWRhLkludGVnZXJfVGV4dF9JTzsgVXNlIEFkYS5JbnRlZ2VyX1RleHRfSU87CldpdGggQWRhLkV4Y2VwdGlvbnM7IFVzZSBBZGEuRXhjZXB0aW9uczsKCnByb2NlZHVyZSBQcm9ncmFtIGlzCiAgRUV4Y2VwdG9uQSwgRUV4Y2VwdG9uQiwgRUV4Y2VwdG9uQywgRUV4Y2VwdG9uRDogZXhjZXB0aW9uOwpiZWdpbgogIC0tIOS7u+aEj+OBruWHpueQhgogIGJlZ2luCiAgICByYWlzZSBFRXhjZXB0b25BIHdpdGggIkV4Y2VwdG9uIE1lc3NhZ2UiOyAtLSDjgZPjgZPjgpIgRUV4Y2VwdG9uQiAvIEMgLyBEIOOBqOOBi+OBq+WkieOBiOOBpuOBv+OBpuOBrQogIGV4Y2VwdGlvbgogICAgd2hlbiBFRXhjZXB0b25BIHwgRUV4Y2VwdG9uQiA9PgogICAgICBQdXRfTGluZSgiRXhjZXB0b24gQSBvciBCIik7IAogICAgd2hlbiBFRXhjZXB0b25DID0+CiAgICAgIFB1dF9MaW5lKCJFeGNlcHRvbiBDIik7CiAgICB3aGVuIEU6IG90aGVycyA9PgogICAgICBQdXRfTGluZShFeGNlcHRpb25fTWVzc2FnZShFKSk7IAogICAgICByYWlzZTsKICAgZW5kOwplbmQgUHJvZ3JhbTs=