Квадратное уравнение

Program Kvadrat;
var
   A,B,C: real;
   X1, X2: real;
   D:real;
begin
  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;
end.

program ex1;
var x,x1,x2,D,a,b,c: real; 
begin 
writeln ('vvedite a,b,c'); 
readln(a,b,c);
D:=b*b-4*a*c;
if D>0 then begin 
x1:=(-b+sqrt(D))/2*a; 
x2:=(-b-sqrt(D))/2*a;
end; 
if D=0 then x:=(-b)/2*a;
if D<0 then x:=('korney net');//здесь поставьте точку с запятой
writeln (x);
readln;
end.

program ex1;
 
var
  x, x1, x2, D, a, b, c: real;
 
begin
  writeln('vvedite a,b,c');
  readln(a, b, c);
  D := b * b - 4 * a * c;
  if D > 0 then begin
    x1 := (-b + sqrt(D)) / 2 * a;
    x2 := (-b - sqrt(D)) / 2 * a;
    writeln(x1, ' ', x2);
  end;
  if D = 0 then begin
    x := (-b) / 2 * a;
    writeln(x);
  end;
  if D < 0 then begin
    writeln('Нет корней');
  end;
  readln;
end.

program zadanie7;
uses crt;
const
tab='**********************';
var
xn,xk,dx,x,y:real;
begin
writeln('vvedite cherez probel xn,xk,dx');
readln(xn,xk,dx);
writeln(' ',tab);
writeln('*    x    *    y    *');
writeln(' ',tab);
x:=xn;
repeat
y:=(62*sqr(x)+11*x-7)/sqrt(2-ln(x));
writeln('*',' ':5,x:5:1,' ':5,'*',' ':5,y:9:3,' ':5,'*');
x:=x+dx;
until x<xk;
writeln(' ',tab);
end.

program zadanie7;
uses crt;
const
tab='******************************';
var
xn,xk,dx,x,y:real;
begin
writeln('vvedite cherez probel xn,xk,dx');
readln(xn,xk,dx);
writeln(tab);
writeln('*    x   *          y        *');
writeln(tab);
x:=xn;
repeat
if (x<=0)or(2-ln(x)<=0) then writeln('*',' ':2,x:4:1,' ':2,'*','    ne opredeleno  *')
else
 begin
  y:=(62*sqr(x)+11*x-7)/sqrt(2-ln(x));
  writeln('*',' ':2,x:4:1,' ':2,'*',' ':5,y:9:3,' ':5,'*');
 end;
x:=x+dx;
until x>xk;
writeln(tab);
end.