DECLARE
CURSOR kursor IS
SELECT AVG(o.Ocena) AS ocenka, gr.Nazwa FROM OCENA o, ZAJECIA z, GRUPA gr WHERE
o.ID_ZAJECIA = z.ID_ZAJECIA AND z.ID_GRUPA = gr.ID_GRUPA
GROUP BY gr.NAZWA;
v_ocena OCENA.ocena%TYPE;
v_nazwa GRUPA.Nazwa%TYPE;
BEGIN
IF NOT kursor%ISOPEN THEN
OPEN kursor;
END IF;
LOOP
FETCH kursor INTO v_ocena,v_nazwa;
EXIT WHEN kursor%notfound;
    DBMS_OUTPUT.PUT_LINE(v_nazwa||' '||v_ocena);
    END LOOP;
EXCEPTION
    WHEN INVALID_CURSOR THEN
        DBMS_OUTPUT.PUT_LINE('Blad kursora');
    WHEN NO_DATA_FOUND THEN
        DBMS_OUTPUT.PUT_LINE('Nie ma zadnych grup');
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('Blad');
END;