Помогите пожалуйста решить во 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.