Нужно это сделать в паскале

var

x,Y,A,B,C,D,E,F :real;

begin

x:=3.33;

A:=Sin(Pi-x);

B:=Cos(Pi-x);

C:=Cos(x)*A;

D:=Power(4.8+Exp(Cos(x)+A),1/4);

E:=Sin(x)*B;

F:=Power(1.1+Exp(Sin(x)+B),1/4);

Y:=C/D+E/F;

write(Y);

end.

Результат, выведенный программой:

-0.0139895012127416