Program giai_phuong_trinh_bac_2;

        Uses crt;

        Var a,b,c,x1,x2,x,DT:Real;

        BEGIN

              CLRSCR;

                  Write('a=');Readln(a);

                  Write('b=');Readln(b);

                  Write('c=');Readln(c);

                  DT:=b*b-4*a*c;

                  If DT>0 then

                     Begin

                              Writeln('Phuong trinh co hai nghiem phan biet');

                              x1:=(-b+SQRT(DT))/(2*a);

                              x2:=(-b-SQRT(DT))/(2*a);

                              Writeln('x1=',x1:8:2);

                              Writeln('x2=',x2:8:2);

                      End

                   Else

                      If DT = 0 Then

                          Begin

                                 Writeln('Phuong trinh co 1 nghiem kep');

                                 x:=(-b/(2*a);

                                 Writeln('x=',x:8:2);

                           End

                       Else

                              Writeln('Phuong trinh vo nghiem'); 

                Readln;

        END.

uses crt; var a, b, c : real;

begin

clrscr;

readln(a, b, c);

dt := b * b - 4 * a * c;

if dt >0 then

begin

writeln('x1 =', ((- b + sqrt(dt))/(2 * a)):2:2);

writeln('x2 =', ((- b - sqrt(dt))/(2 * a)):2:2);

end;

if dt = 0 then writeln('x = ', (-b / (2 * a)):2:2)'

if dt < 0 then writeln(' Phương trinh vo nghiem');

readln;

end.