Составить программу для вычисления уравнения в паскале

program pr;

var x,z,e:integer;

begin

readln(z,x,e);

if x<=(-z) then

  begin

  writeln('y=',cos(x*ln(abs(x))+power(e, x-1))+sin(z*z));

  end

else if (x<z) and (x>(-z)) then

  begin

  writeln('y=',cos(2*x*z)+sin(z*z));

  end

else  

  begin

  writeln('y=',cos( sqr(cos(x))+x*x/5   )+sin(z*z));

  end;

end.