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