DECLARE vPrzedmiot Przedmioty.Id_przedmiot%TYPE;
BEGIN SELECT DISTINCT p.Id_przedmiot
      INTO vPrzedmiot
      FROM Przedmioty p
        JOIN Egzaminy e ON p.Id_przedmiot = e.Id_przedmiot
      WHERE UPPER(Nazwa_p) = 'BAZY DANYCH';
  Dbms_output.Put_line('Z baz danych odbył się już egzamin');
  EXCEPTION WHEN NO_DATA_FOUND
  THEN Dbms_output.Put_line('Z baz danych nie było jeszcze egzaminu'); END;