Ошибка при компиляции

program LABA_5_1;
uses crt;
const t=1e-9;
var xn,xk,h,x,ch,zn,y:real;
begin
clrscr;
  write('xn,xk,h=');
  readln(xn,xk,h);
  zn:=exp(x*ln(2))-3*sqr(cos(x));
  zn:=zn*zn*zn;
  x:=xn;
  while x<xk+t do
  begin
  if abs(zn)>t then
    begin
      ch:=9.5*x*x*x-exp(x*x*ln(2));
      if ch>-t then
      ch:=exp(ln(ch)/3)
       else
        ch:=-exp(ln(abs(ch))/3);
      y:=ch/zn;
     else
      writeln(' X=', x:8:3,' Y=', y:12:7,' y not exist-ODZ’');
  else
    writeln('Pri X=', x:8:3,'y not exist-division by 0');
  x:=x+h;
  readkey;
end
END.

program LABA_5_1;
uses crt;
var xn,xk,h,x,ch,zn,r,y:real;
begin
clrscr;
write('xn=');readln(xn);
repeat
write('xk>xn  xk=');
readln(xk);
until xk>xn;
repeat
write('h<xk-xn  h=');
readln(h);
until h<xk-xn;
x:=xn;
while x<=xk do
begin
 r:=exp(x*ln(2))-3*sqr(cos(x));
 if r=0 then writeln('x=',x:6:2,'  y не определен')
 else
  begin
    zn:=r*r*r;
    if 9.5*x*x*x-exp(ln(2)*x*x)>=0
     then ch:=exp(ln(9.5*x*x*x-exp(ln(2)*x*x))/3)
    else ch:=-exp(ln(abs(9.5*x*x*x-exp(ln(2)*x*x)))/3);
    y:=ch/zn;
    writeln('x=',x:6:2,'  y=',y:10:5);
  end;
 x:=x+h;
end;
readkey;
end.
END.

program LABA_5_1;
uses crt;
const t=1e-9;
var xn,xk,h,x,ch,zn,y,pk3:real;
begin
clrscr;
  write('xn,xk,h=');
  readln(xn,xk,h);
  zn:=exp(x*ln(2))-3*sqr(cos(x));
  zn:=zn*zn*zn;
  x:=xn;
  while x<xk+t do
  begin
  if abs(zn)>t then
    begin
      pk3:=9.5*x*x*x-exp(x*x*ln(2));
      if pk3>-t then
       begin
        ch:= pk3/abs(pk3)*-exp(ln(abs(ch))/3);
      y:=ch/zn;
     end
     else
      writeln(' X=', x:8:3,' Y=', y:12:7, ' y not exist-ODZ’' );
    end
  else
    writeln('Pri X=', x:8:3,'y not exist-division by 0');
  x:=x+h;
  readkey
end
end.