Проблема в подсчетах(Паскаль)

[Сергей Немцов]

Есть одномерный массив x[i].
С него надо найти функцию U (на фото)

Я записал данное выражение так:
________________
u:=0;q:=1;
for i:=1 to n do
begin
q:=q*(exp(i*abs(x[i])));
u:=q/(sqrt(abs(x[i]/i)));
end;
writeln;
write('u=',u:3:3);
writeln;
________________

Но значения получаются over999 (даже при небольших x[i]).
Правильно ли это?Или где-то есть ошибка?

[min@y™]

exp(i*abs(x[i]))

эт чо?

[Сергей Немцов]

Сообщение от min@y™

эт чо?

Вай,ln потерял

q:=q*(exp(i*ln(abs(x[i]))));
u:=q/(sqrt(abs(x[i]/i)

так будет правильно?

[min@y™]

так будет правильно?

возьми маткад и проверь. или ты предлагаешь этим заняться мне?