найти ошибку в программе

[aleko05]

Задали написать программу решения квадратного уравнения. написал. но, при запуске, она делает ошибки при a,b,c не равно 0. помогите разобраться

Program lab1;
var a,b,c,D:integer;
    x,x1,x2:real;
    begin
         writeln('a=');
         readln (a);
         writeln('b=');
         readln (b);
         writeln('a=');
         readln (c);
    if a=0 then
           if b=0 then
                  if c=0 then writeln ('любое число')
                  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
               if D=0 then
                      begin
                      x:=-b/2*a;
                      writeln('x=',x:8:3);
                      end
                      else
                          begin
                          x1:=((-b+sqrt(D))/2*a);
                          writeln('x=',x:8:3);
                          x2:=((-b-sqrt(D))/2*a);
                          writeln('x=',x:8:3);
                          end
               else
               writeln ('корней нет');
        end;
    end.

[Stilet]

Какого рода ошибки?

[aleko05]

семантическая, насколько я понимаю. при вводе любых чисел на a,b,c (которые подходили бы под условие D>=0) x=0.000

[MadHamster]

x1:=((-b+sqrt(D))/2*a);
writeln('x1=',x1:8:3);
x2:=((-b-sqrt(D))/2*a);
writeln('x2=',x2:8:3);

[aleko05]

спасибо большое, это проблема отпала
но появилась другая: программа считает неправильно.
подставляю значения
а=2
b=2
c=0
считаю на бумаге. х1=0, х2=-1
считаю в программе х1=0, х2=-4
так и с другими числами

[BDA]

Program lab1;
var
    a,b,c,D:integer;
    x,x1,x2:real;
begin
    writeln('a=');
    readln (a);
    writeln('b=');
    readln (b);
    writeln('a=');
    readln (c);
    if a=0 then
        if b=0 then
            if c=0 then
                writeln ('любое число')
            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
        begin
            if D=0 then
            begin
                x:=-b/(2*a);
                writeln('x=',x:8:3);
            end
            else
            begin
                x1:=((-b+sqrt(D))/(2*a));
                writeln('x=',x1:8:3);
                x2:=((-b-sqrt(D))/(2*a));
                writeln('x=',x2:8:3);
            end
        end
        else
            writeln ('корней нет');
    end;
end.

[aleko05]

огромное спасибо, очень выручили
скобки исправил, все заработало