CREATE OR REPLACE FUNCTION solveBhaskara ( aA IN NUMBER, aB IN NUMBER, aC IN NUMBER) RETURN VARCHAR2 AS
  d NUMBER := 0;
  dSquare NUMBER :=0;
  x1 NUMBER := 0;
  x2 NUMBER := 0;
BEGIN

  DBMS_OUTPUT.put_line('Bhaskara... here we go!');

  d := POWER(aB, 2)-(4 * aA * aC);
  DBMS_OUTPUT.put_line('.. Delta = '||d);

  IF d < 0 THEN
    DBMS_OUTPUT.put_line('.. .. Que pena... Seu delta é negativo, sua raíz é impossível de ser extraída...');
    RETURN NULL;
  END IF;

  dSquare := SQRT(d);
  x1 := (-aB + dSquare) / (2 * aA);
  x2 := (-aB - dSquare) / (2 * aA);

  DBMS_OUTPUT.put_line('.. OK, almost done, galere!');
  DBMS_OUTPUT.put_line('.. .. x1 = '||x1);
  DBMS_OUTPUT.put_line('.. .. x2 = '||x2);

  RETURN ('x1 = '||x1||' & x2 = '||x2);

END solveBhaskara;
/

SELECT solveBhaskara(2, -6, -20) FROM DUAL;