Решение квадратного уравнения

Program Kvadrat;
uses crt;
var
A,B,C: real;
X1, X2: real;
D:real;
begin
clrscr;
writeln ('Wedite koeficient A,B,C');
readln (A,B,C);
if A=0
then if B=0
then writeln ('Uravnenie vyrazhdeno')
else writeln ('Edinstveniy koren x=',-C/B:6:3)
else
   begin
     D:=B*B-4*A*C;
     A:=2*A;
    if D<0 then writeln ('Deistvitelnix korney net')
    else if D=0 then writeln ('Korniy ravny: X1=X2', -B/A:6:3)
    else
      begin
        D:=Sqrt(D);
        writeln ('X1=', (-B+D)/A:6:3);
        writeln ('X2=', (-B-D)/A:6:3);
      end;
    end;
readln
end.

uses crt;
var
A,B,C: real;
X1, X2: real;
D:real;
begin
clrscr;
writeln ('Wedite koeficient A,B,C');
readln [COLOR="red"](a:=sqrt(-sin(8*h)+17/(1-sin(4*h)*(cos(h*h+18)*(h*h+18))) ,И ТОЖЕ САМОЕ ДЛЯ В и С....);ДАЛЬШЕ ПО НАПИСАННОМУ??????[/COLOR]
if A=0
then if B=0
then writeln ('Uravnenie vyrazhdeno')
else writeln ('Edinstveniy koren x=',-C/B:6:3)
else
   begin
     D:=B*B-4*A*C;
     A:=2*A;
    if D<0 then writeln ('Deistvitelnix korney net')
    else if D=0 then writeln ('Korniy ravny: X1=X2', -B/A:6:3)
    else
      begin
        D:=Sqrt(D);
        writeln ('X1=', (-B+D)/A:6:3);
        writeln ('X2=', (-B-D)/A:6:3);
      end;
    end;
readln
end.

uses
  crt;
 
var
  A, B, C: real;
  X1, X2: real;
  D: real;
  h: real;
 
begin
  clrscr;
  writeln('введите h');
  readln(h);
  a := sqrt(-sin(8 * h) + 17 / (1 - sin(4 * h) * (cos(h * h + 18) * (h * h + 18))));
  b := 1 - (exp(1 / 2) * (ln(3 / (3 + abs(tan(a * sqr(h)) - sin(a * h))))));
  c := a * sqr(h) * sin(b * h) + b * h * h * h * cos(a * h);
  if A = 0
    then if B = 0
      then writeln('Uravnenie vyrazhdeno')
    else writeln('Edinstveniy koren x=', -C / B:6:3)
  else
  begin
    D := B * B - 4 * A * C;
    A := 2 * A;
    if D < 0 then writeln('Deistvitelnix korney net')
    else if D = 0 then writeln('Korniy ravny: X1=X2', -B / A:6:3)
    else
    begin
      D := Sqrt(D);
      writeln('X1=', (-B + D) / A:6:3);
      writeln('X2=', (-B - D) / A:6:3);
    end;
  end;
  readln
end.