uses crt;
var a,b,c,d:real;
begin
clrscr;
read(a,b,c); readln;
d:=b * b - 4 * a * c;
if a = 0 then
if b = 0 then
if c = 0 then
write('Phuong trinh vo so nghiem') else write('Phuong trinh vo nghiem')
else write('x = ',-c / b:0:2) else
begin
if d < 0 then write('Phuong trinh vo nghiem') else
if d = 0 then write('Phuong trinh co nghiem kep x1 = x2 = ',-b / (2 * a):0:2)
else
writeln('Phuong trinh co 2 nghiem phan biet:');
writeln('x1 = ',(-b + sqrt(d)) / (2 * a):0:2);
write('x2 = ',(-b - sqrt(d)) / (2 * a):0:2);
end;
readln;
end.
