https://pastein.ru/t/yB
скопируйте уникальную ссылку для отправки
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,