create OR replace function cuadratica(a number,b number,c number)
return number
IS
raizPositiva NUMBER;
raizNegativa NUMBER;
BEGIN
raizPositiva :=(-b+sqrt(power(b,2)-(4*a*c)))/(2*a);
raizNegativa :=(-b-sqrt(power(b,2)-(4*a*c)))/(2*a);
RETURN raizPositiva;
END;
select cuadratica(1,2,-8) from dual;