DECLARE
  nasz_blad EXCEPTION;
  PRAGMA EXCEPTION_INIT (nasz_blad, -1);
  x INTEGER;
BEGIN
  null;
EXCEPTION
  WHEN nasz_blad THEN
    DBMS_OUTPUT.Put_Line('Nasi gora.');
  WHEN OTHERS THEN
    DBMS_OUTPUT.Put_Line('Niestety.');
END;
/