Вычесление значения

[Ximer]

Помогите решить вычесление значения по заданной формуле
Заранее блогодарен.

[alex_fcsm]

var y:real;
x,c,a:integer;

begin
writeln('Input x,c,a');
readln(x,c,a);
y:=sqrt(x*c)+sin(sqr(a))+sqrt(sqr(sin(3))*sin(3)/(x*sqr(a)))+sqrt((a+sin(3*x)*exp(ln(sin(x)/cos(x))*sqrt(x)))/abs(a*x*sqr(cos(3))*cos(3)));
writeln(y);
readln;
end.