Даю 30 баллов!!! написать программку для определения количества корней квадратного уравнения

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a,b,c:real;
  Writeln('Введите коэффициенты квадратного уравнения (a b c)');
  Read(a,b,c);
  if a=0 then begin
    Writeln('а=0 делает уравнение линейным');
    if b=0 then Writeln('Корней нет')
    else Writeln('Один корень ')
    end
  else begin
    var d:=b*b-4*a*c;
    if dlt;0 then Writeln('Нет реальных корней')
    else
      if d=0 then Writeln('Один корень')
      else Writeln('Два корня')
    end
end.

program yrav;

var

  a,b,c,d,x1,x2,x:real;

begin

  writeln('Введите коэффиценты квадратного уравнения');

  readln(a,b,c);

   d:=b*b-4*a*c;

   if dlt;0 then writeln('корней нет');

   if (dgt;0) and (alt;gt;0)and (blt;gt;0)and (clt;gt;0) then

   begin

     x1:=(-b+sqrt(d))/(2*a);

     x2:=(-b-sqrt(d))/(2*a);

     writeln('X1= ',x1:6:3,'   X2= ',x2:6:3);

   end;

  if  (a=0)and(blt;gt;0)and(clt;gt;0) then

  begin

    x=-c/b;

    writeln('Один корень уравнения Х= ',x:6:3);

  end;

  if (b=0)and(clt;0) and(alt;gt;0) then

  begin

   x1=sqrt(-c/a); x2=-sqrt(-c/a);

   writeln('X1= ',x1:6:3,'   X2= ' ,x2:6:3);

  end

  else writeln('Корней нет!');

  if (alt;gt;0) and(blt;gt;0)and(c=0) then

  begin

   x1:=0;

   x2:=-b/a;

   writeln('X1= ', x1:6:3,'     X2= ',x2:6:3);

  end;

end.