create or replace package pkgMipaquete is

function suma (p1 number, p2 number) return number;

function resta (p1 number, p2 number) return number;

function multiplica(p1 number, p2 number) return number;

function divide(p1 number, p2 number) return number;

end pkgMipaquete;

create or replace package BODY pkgMipaquete is

procedure imprime(pvalor number) is

BEGIN

dbms_output.put_line('Resultado : ' || pvalor);

end;

function suma(p1 number, p2 number) return number is

begin

imprime(p1+p2);

return(p1+p2);

end suma;

function resta(p1 number, p2 number) return number is

begin

imprime(p1-p2);

return(p1-p2);

end resta;

function multiplica(p1 number, p2 number) return number is

begin

imprime(p1*p2);

return(p1*p2);

end multiplica;

function divide(p1 number, p2 number) return number is

begin

imprime(p1/p2);

return(p1/p2);

EXCEPTION

when zero_divide then

dbms_output.put_line ('Cuack : Division por cero');

return 0;

end divide;

end pkgMipaquete;

declare

r number(10);

begin

r:= pkgMipaquete.suma(2,3);

end