Libro

BEGIN

    FOR LIBRO IN ( SELECT  DISTINCT L.COD_LIBRO,NOMBRE FROM LIBROS L INNER JOIN PRECIOS P ON L.COD_LIBRO=
                  P.COD_LIBRO ORDER BY L.COD_LIBRO) LOOP

          DBMS_OUTPUT.PUT_LINE('---> ' || LIBRO.NOMBRE || ' <---');

          FOR I IN (SELECT P.PRECIO FROM LIBROS L
          INNER JOIN PRECIOS P ON L.COD_LIBRO=P.COD_LIBRO WHERE L.COD_LIBRO=LIBRO.COD_LIBRO) LOOP

                        DBMS_OUTPUT.PUT_LINE(I.PRECIO);

          END LOOP;

    END LOOP;




END;
/