a,b,c,x1,x2),

var

D:real

bedin

D:=b*b-4*a*c,

if D&lt,0 then writeln(корней нет)

else D=0 then x:=-b/(2+a)

else

begin

x1:=-b-sqrt(D)/2a,

x2:=-b+sqrt(D)/2a,

end,

end,

begin

readln(a1,b1,c1,t1,t2),

ur(f1,b1,c1,t1,t2),

Ответы:

var a,b,c,y1,y2,d,i:real,

begin

read(a,b,c),

d:=b*b-4*a*c,

if d&gt,0 then

begin

y1:=(-1*b+sqrt(d))/(2*a),

y2:=(-1*b-sqrt(d))/(2*a),

if y1&gt,=0 then 

begin   

writeln(sqrt(y1)),   

writeln(sqrt(y1)*-1), 

end, 

if y2&gt,=0 then  begin   

writeln(sqrt(y2)),   

writeln(sqrt(y2)*-1), 

end,

end else

if d=0 then

begin

y1:=(-1*b)/(2*a),

if y1&gt,=0 then  begin   

writeln(sqrt(y1)),   

writeln(sqrt(y1)*-1), 

end, 

end

else

writeln(Корней нет),

end.