Вычислить значение выражения

uses crt;
var xn,x,xk,z,dx,f1,f2,f3:real;
    i:byte;
begin
clrscr;
xn:=-1.2;
xk:=1.2;
dx:=(xk-xn)/9;
x:=-1.2;
for i:=1 to 10 do
 begin
  if(x=1)or(x<0)or(cos(x)=0)or(sin(x)=-cos(x))
  then writeln('x=',x:5:1,' решений нет')
  else
   begin
    f1:=x*(sqrt(x)+x)-2*x*x*x*x/(3*(x-1));
    if f1<=0  then writeln('x=',x:5:1,' решений нет')
    else
     begin
      f2:=sin(x)-cos(x)-1;
      if f2<=0 then writeln('x=',x:5:1,' решений нет')
      else
       begin
        f3:=(ln(f2)+sin(x)/cos(x))/(sin(x)/cos(x)+1);
        if f3<0 then writeln('x=',x:5:1,' решений нет')
        else
         begin
          z:=ln(f1)+sqr(arctan(x+1))-sqrt(f3);
          writeln('x=',x:5:1,'  z=',z:10:4);
         end;
       end;
     end;
   end;
  x:=x+dx;
 end;
readln
end.