Código de Pascal/Turbo Pascal - F.Gral Cuadrática

program FORMULA_GENERAL_CUADRATICA;

uses crt;

var

A,B,C,H,H2: real;

begin

clrscr;

writeln('Escribe el valor de A: ');

readln(A);

writeln('Escribe el valor de B: ');

readln(B);

writeln('Escribe el valor de C: ');

readln(C);

H:=(-b+(sqrt(b*b-4*a*c))/2*a);

H2:=(+b-(sqrt(b*b-4*a*c))/2*a);

writeln('El resultado 1 es: ',H);

writeln('El resultado 2 es: ',H2);

readkey;

end.