Написать формулу в паскале. Фото внутри

var  a,b,f,d,x:integer; z1,z2,z3,z4,z5,y:real; begin // readln(x,a,b,f,d); x:=3; a:=2; b:=5; f:=1; d:=4; z1:=exp((2*x)*ln(sin(x*x*x))); z2:=abs(a-b*b*b); z3:=sqr(sin(z2)/cos(z2)); z4:=sin(x*x); z5:=sqrt(z4*z4*z4)*f*d; y:=sqrt((z1+z3)/z5)*cos(x); writeln('y = ',y); end. Результат: y = -0.978314903227326