Ejercicio 4(procedimientos y funciones)

 Plantee e implemente un subprograma en PASCAL para resolver una ecuación
de segundo grado Ax^2
+Bx+C=0 a partir de sus coeficientes A, B y C. Además
del subprograma, implemente un programa principal apropiado para probar su
funcionamiento.


PROGRAM gra2(input,output);
VAR
a,b,c,d,e,f:real;
(*********************************)
PROCEDURE leer;
 BEGIN
 write('Escriba A: ');
 read(a);
 write('Escriba B: ');
 read(b);
 write('Escriba C: ');
 read(c);
 END;
(*********************************)
PROCEDURE solve;
 BEGIN
 IF ((b*b)-(4*a*c)) <0 THEN writeln('No hay raíz') ELSE d:=sqrt((b*b)-(4*a*c));
 e:= ((-b+d)/(2*a));
 f:= ((-b-d)/(2*a));
 END;
(*********************************)
 BEGIN
 leer;
 solve;
 write('Las raíces de la ecuación son: ',e:2:2,' y ',f:2:2);

 END.