Указание возбуждения исключения достаточно простое.
Для этого используется инструкция raise. Например:
raise Numeric_Error;
Сгенерированное таким образом исключение не будет ничем отличаться от "истинного" исключения Numeric_Error.