[Appolinariya_]

Выводит [Ошибка]Until1.dpr(69): ',' expected but '.' found
Может кто-нибудь может проверить код?
И ещё, как в консольном приложении можно задать что а<>0?

Код:

unit Unit1;
{Напишите программу, печатающую корни квадратного уравнения ax2 + bx + c = 0. Если уравнение не имеет корней, то выведите соответствующее сообщение.}

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 close;
end;

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 := b * b - 4 * a * c;
if d<0 then
begin
 Label1.Caption:='d<0, net resheniy';
end
 else if (d=0) then
  begin
 x1 := -b/(2*a);
 Edit4.Text:=FloatToStr(x1);
  end
 else
 begin
 x1:= (-b + Sqrt( d ))/ (2 * a);
 x2:= (-b - Sqrt( d ))/ (2 * a);
 Edit4.Text:=FloatToStr(x1);
 Edit5.Text:=FloatToStr(x2)
 end;
end.

[NumLock]

Код:

end;

пропущено. а все из-за отсутствия форматирования исходного кода.