Составить программу вычисления значения функции, разложенной в ряд (сумму ряда). В формулах – заданная степе

var  F,x,S,eps,Fact:real;
     n:integer;
begin
write('vvedite x=');
readln(x);
write('vvedite eps=');
readln(eps);
F:=0; n:=1; Fact:=1; S:=(x*exp(n*ln(x-1)));
while abs(S)>eps do
    begin
      F:=F+S;
      n:=n+1;
      Fact:=Fact*n;
      S:=(x*exp(n*ln(x-1)));
    end;
write('pri x=',x:5:2,' eps=',eps:5:3,' summa F=',F:7:3);
readln;
end.

uses crt;
function f(x,e:real):real;
var s,t:real;
begin
s:=0;
t:=1;
while abs(t*x)>e do
 begin
  t:=t*(x-1);
  s:=s+x*t;
 end;
f:=x+s;
end;
var  e,x,S:real;
     i,j:integer;
begin
clrscr;
writeln('--------------------------------------');
writeln('|  x  | e=0.001 | e=0.005 | e=0.0001 |');
writeln('--------------------------------------');
x:=1.91;
for i:=1 to 3 do
 begin
  writeln('|',x:5:2,'|',f(x,0.001):9:3,'|',f(x,0.005):9:3,'|',f(x,0.0001):10:4,'|');
  x:=x-0.1;
 end;
writeln('--------------------------------------');
readln;
end.