Алгоритм для решения квадратного уравнения, работает некорректно

Program Fedor;
var
  a,b,c,D,x1,x2: real;
begin
 writeln('Введите a');
 readln(a);
 writeln('Введите b');
 readln(b);
 writeln('Введите c');
 readln(c);
  if a=0 then begin
   writeln('не квадратное уравнение');end 
   
     else  
      writeln(D=b*b-4*a*c); 
       if D>=0 then begin
         writeln(x1=(-b+sqrt(D))/2*a);
         writeln(x2=(-b-sqrt(D))/2*a);end
        
          else
            writeln('корней нет');
end.

var a,b,c,D,x1,x2: real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if a=0 then writeln('не квадратное уравнение')
else
 begin
   D:=b*b-4*a*c;
   writeln('Дискриминант=',D:0:2);
  if D>=0 then
   begin
    x1:=(-b+sqrt(D))/(2*a);
    x2:=(-b-sqrt(D))/(2*a);
    writeln('x1=',x1:0:2,' x2=',x2:0:2)
   end
  else writeln('Действительных корней нет');
 end
end.