Var
 A,B,C,D:real;
Begin
WriteLn('ax^2 +bx +c = 0');
WriteLn('Введи числа a b c ');
ReadLn(A,B,C);
D:=B*B-4*A*C;
if (D>=0) then Begin
WriteLn('x1 = ',(-B-sqrt(D))/(2*A));
WriteLn('x2 = ',(-B+sqrt(D))/(2*A));
End
else
WriteLn('Корнеей нет.');
End.