квадратное у-ние????

[donetsk]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a,b,c,d,x1,x2:real;
begin
a:=StrToFloat(edit1.Text);
b:=StrToFloat(edit2.Text);
c:=StrToFloat(edit3.Text);
d:=b*b-4*a*c;
if
d>=0;
then
begin
x1:=(-b+Sqt(d))/(2*a);
x2:=(-b-Sqt(d))/(2*a);
Memo1/lines/add('x1'=+floatToStr(x1));
Memo2/lines/add('x2'=+floatToStr(x2)); //+ или - преред float
end
else
memo.lines.add('корней нет');

implementation

{$R *.dfm}

end.