Program Equazione_di_secondo_grado;
(*simply program by MaxJump91*)
uses crt;
var a,b,c,d,x1,x2:Real;
Begin
 clrscr;
 writeln('introduci il valore di a, coefficiente di x^2');
 readln(a);
 writeln('introduci il valore di b, coefficiente di x');
 readln(b);
 writeln('introduci il valore del termine noto c');
 readln(c);
 d:=b*b-4*a*c;
 if d>0 then
         Begin
          writeln('le due soluzioni sono reali e distinte:');
          writeln('x1 è uguale a ',(-b)-sqrt(d))/2*a:8:2);
          writeln('x2 è uguale a ',(-b)+sqrt(d))/2*a:8:2);
         End
        else if d=o then
                     Begin
                      writeln('le due soluzioni sono reali e coincidenti:');
                      writeln('x1 e x2 sono uguali a ',(-b)/2*a:8:2);
                     End
                    else
                     writeln('le due soluzioni non esistono nell'insieme dei numeri reali');
readln
End.