Решила эту задачу.. но немного сомневаюсь...помогите пжлста..
вот что у меня получилось
Program my;
const
x=1.67e3;
y=-0.179e4;
var
z,a,b,c,d,per:real;
begin
z:=exp((Pi/2)*Ln(2));
per:=abs(y);
a:=(1+sin(x+y)*sin(x+y))/(2+x-(2*x)/(1+exp(2*Ln(x))*((-1)*Exp(3*Ln(per)))));
b:=cos(arctan(exp(-1*Ln(z))));
c:=abs(sqrt(abs(a))+exp(1/3*Ln(abs((IMG:style_emoticons/default/cool.gif))));
d:=Ln©/Ln(8);
WriteLn(d);
readLn;
End.