Сумма ряда с точностью, проверьте плз Опции

[drug]

Вычислить сумму ряда с точностью е=10^(-5) при n изменяющимся от 0 до бесконечности

3^n/((n+1)*x^(n+1))

вот код:

program z1_13;
uses crt;
const e=0.0001;
var
x,s,p:real;
n:integer;
begin
clrscr;
write('vvedite x (x<>0) ');
readln(x);
n:=0;
s:=0;
repeat
if x>0 then p:=exp(n)*ln(3)/((n+1)*exp(n+1)*ln(x))
else p:=exp(n)*ln(3)/((n+1)*exp(n+1)*ln((-1)*x));
inc(n);
s:=s+p;
until s<e;
write ('summa ryada ravna ',s:12:5);
end.

просто крайне малый интервал что я могу вводить икс

и чивота меня напрягает степень через экспоненту

М

Пожалуйста, используй правильные теги. Лопарь

[drug]

более точного условия нету...
это с методички для контрольной
там тока такое