---

var a,b,c,d,x1.x2,yl.y2 real,
begin
a:=strtofloat(edit 1.text): b:=strtofloat(edit2.text);

c=strtofloat(edit3.text).

d:=sqr(b)-4*a*c.

yl =-b/(2*a);

y2=sqrt(abs(d))(2 a),

ifd0

then

begin

XI =yl y2,

x2 =y|-y2

edit.text =floattostr(x1):

edit text=floattostr(x2):

end

else

begin

edit4.text=floattostrivl) +1+floattostry2). edits text =floattostr I) -+floattostr(y2).

end,

end,

---

---

---