[ALexandr555]

не в ту тему конечно ты это

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,x1,x2: Real;
begin
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(Edit3.text);
D:=Sqr(b)+4*a*c;
If D > 0 then begin
//два корня
x1:=(-b+Sqrt(D))/(2*a);
x2:=(-b-Sqrt(D))/(2*a);
ShowMessage('x1='+FloatToStr(x1)+'; x2='+FloatToStr(x2));
end
else if D = 0 then begin
//один корень
x1:=-b/2*a;
x2:=-b/2*a;
ShowMessage('x1='+FloatToStr(x1)+'; x2='+FloatToStr(x2));
end
else if D < 0 then begin
ShowMessage('Корней нет, уравнение решения не имеет!');
end;
end;

ну вот тебе