Declare
V_PRECIO Number := 0;
V_ACUMULADOR Number := 0;
V_CATIDAD Number := 3;
Begin
For RECORRE_DET_FAC In (Select 1 CODIGO_P, 15 CANTIDAD From DUAL) Loop
Select 18.56 PRECIO Into V_PRECIO From DUAL;
V_ACUMULADOR := V_ACUMULADOR + (V_PRECIO * V_CATIDAD);
End Loop;
DBMS_OUTPUT.PUT_LINE('Acumulador ' || V_ACUMULADOR);
End;