помогите пожалуйста решить во free pascal.
Надо вычислить значение выражения​

var x, b, a: real;

begin

   readln(x, b, a);

   print((exp(abs(power(sin(sqr(x)), 3))))/(3 * a * x) + power(sqr(b)*sqr(cos(a * power(x, 3))), (1/3)));

end.