Program kwur;
Uses CRT;
Var a,b,c,d,x1,x2: real;
Begin
Clrscr;
Write('введите коэффициенты уравнения a,b,c'); readln(a,b,c);
D:=b*b-4*a*c;
If d>=0 then
Begin
X1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);
Writeln('x1=',x1' x2=',x2)
END;
Else writeln('действительных корней нет')
End.