Надо понимать, что слова о цикле относятся к предыдущей задаче?
Для вычисления приведенных выражения можно использовать программу:
var x,y,d,c1,c2,c3,c4:real;
begin
write('x = '); readln(x);
c1:=(x*x+2)/(5*3/11*x);
c2:=cos(c1)/sin(c1);
y:=5*3/11*exp(x)+sqr(sqr(c2))*c2;
c3:=exp((1/3)*ln(x+1));
c4:=arctan(c3/sqrt(1-c3*c3));
d:=exp((1/3)*ln(2-c4));
writeln('y = ',y,'  d =',d);
end.

Пример:
x = -0,8
y = 2.50881141540160E+000
d = 1.11208766158585E+000

Var
  x, y, temp: real;

begin
  write('x = ');
  readln(x);
 
  temp := (5 * 11 + 3) / 11;
  y := temp * exp(x) + 1 / (exp(5 * ln(tan((x * x + 2) / temp / x))));
  writeln('y = ', y);
 
  temp := exp((1 / 3) * ln(x + 1));
  temp := 2 - arcsin(temp);
  y := exp((1 / 3) * ln(temp));
  writeln('d = ', y);
end.