program phtrinhb2;

uses crt;

var a,b,c,delta,x1,x2: real;

begin

clrscr;

write('nhap vao ba he so a,b,c '); readln(a,b,c);

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

if delta < 0 then

begin

write('phuong trinh da cho vo nghiem , xin moi nhap lai he so');

end

else

begin

if delta =0 then write('phuong trinh co nghiem kep x1= x2= ',-b/(2*a))

else writeln('phuong trinh co hai nghiem phan biet x1= ',(-b+sqrt(delta))/(2*a):7:2 ,

' va x2 = ', (-b+sqrt(delta))/(2*a):7:2);

end;

readln;

end.