Задача "Операторы цикла"

[patisson74]

Не используя стандартных функций (за исключением abs), вычислить с точностью Є>0:

[Stranger333]

Вот решение, если я правильно понял

const eps=0.1; //задаеш значение до которого тебе надо вычеслять
var s,x,a:real;fact,n:integer;
begin
   write('x=');
   readln(x); //любое значение
   s:=0;
   n:=1;
   a:=1;
   fact:=1;
   while abs(a)>eps do
   begin
      s:=s+a;
      fact:=fact*n;
      a:=exp(n*ln(x))/fact;
      n:=n+1;
   end;
   writeln(s);
   readln
end.