Паскаль, квадратное уравнение

Во первых если d<0 то уравнение имеет комплексные корни, во вторых если a=0 (b!=0) программа вылетает. А так вроде всё правильно. Только вот ты уверен что "-b" работает? поменяй на b*(-1)

Лови

Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else
Begin
X:=-C/B;
Writeln('X=',X:8:3);
End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
End;
End;
End.

Program yravnenie;
var
a,b,c,d,x,xx:real;
Begin
Writeln('Введите A');
Readln(a);
Writeln('Введите B');
Readln(b);
Writeln('Введите C');
Readln(c);
d:=(b*b)-(4*a*c);
WriteLn('D=',d:3:2);
If (d>0) then
begin
x:=(-b+sqrt(d))/(2*a);
Writeln('x=',x:3:3);
xx:=(-b-sqrt(d))/(2*a);
Writeln('xx=',xx:3:3);
End;
If (d=0) {скобки не нужны} then
begin
x:=(-b)/(2*a);
Writeln('x=',x:3:3);
End;
If (d<0) then
begin
Writeln('Уравнение не имеет корней');
end; {Убрать Begin и End}
end.

почти все верно, но при d=0 х1=х2=(-b)/(2*a); Уравнение имеет 2 одинаковых корня!!!!