Program ;
Uses crt;
Var D, x1, x2, a,b,c : real;
Begin
Clrscr;
Write('nhap 3 so a, b, c'); readln(a,b,c);
D:= b*b-4*a*c;
If D < 0 then write(' phuong trinh vo nghiem') else
Begin
X1 := (-b+ sprt(D))/2;
X2:= (-b- sprt(D))/2;
Writeln( 'phuong trinh co nghiem', x1,x2);
End;
Readln
End.