Сумма

[Inkognito99]

Кто может подсказать как посчитать сумму этой функции(на рис) ? не учитывая ln(x)..
Мне почему -то паскаль выводит ошибку, наверно что-то со степенями намудрил.. Вот мой вариант:

var i,n:integer;
s,x:real;
begin
writeln('введите n');
readln(n);
writeln('введите x');
readln(x);
S:=0;
for i:=0 to n do
begin
s:=s+exp((2*n+1)*ln(x-1))/(2n+1)*(s+exp((2*n+1)*ln(x+1)));
writeln(s:6:2);
end;
readln;
end.

[sabbathist]

знак умножения пропустили и х не объявили

[Inkognito99]

Спасибо)) внимательность страдает) всё работает)