--5
DECLARE
    z_id pracownicy.id_pracownika%TYPE := '5';
    z_imie pracownicy.imie%TYPE;
    z_nazwisko pracownicy.nazwisko%TYPE;
    z_kod CHAR(6 CHAR);
BEGIN
    SELECT imie, nazwisko, SUBSTR(nazwisko,1,3)
    INTO z_imie, z_nazwisko, z_kod
    FROM pracownicy
    WHERE id_pracownika = z_id;

    DBMS_OUTPUT.put_line(z.imie||' '||z_nazwisko||', ||z_kod);

EXCEPTION
    WHEN NO_DATA_FOUND THEN
        DBMS_OUTPUT.put_line('Nie ma pracownika o takim id!');
END;
/