задачка в Turbo Pascal

[Semych]

исправьте пожалуйста ошибки, а то уже намаялся с ней( заранее большое спасибо) !!

Z:=sqrt((x+1)/(x*x+2)+3.7*(sqr((x*x*x+10(exp(-2*ln(x)))/x+1))*((x/x-1)+2)*((x*x*x+10/x)/x+1))*((x/x-1)+2)+(ln(x)/sqrt(x*x+25))+2;

[Daramant]

a в степени x будет exp(x * ln(a)).
lg(x) будет ln(x) / ln(10).

var
  Z, x : real;
begin
x := 2;
Z :=
  exp(1.2 * ln(
    (x + 1) / (x*x + 2)
    + 3.7 * (exp(3 * ln(
                 (x*x*x + 10 / x) / (x + 1) * (x / (x - 1) + 2)
               )))
    + (ln(x) / ln(10)) / (sqrt(x*x + 25))
  )) + 2;
  writeln(z);
end.

P.S. Еще надо бы проверить: нет ли деления на 0 и положительность значений под логарифмом.

[Semych]

спасибо Daramant, завтра преподу оттащу)) !!