Вычислить функцию разложением в ряд и проверить по формуле

uses crt;
var x,s,t:real;
    n,i:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=0;t:=-1;{начальные значения суммы и очередного члена ряда}
for i:=1 to n do
 begin
  t:=-t*x/i;{очередной член без коэффициента в числителе}
  s:=s+t*(i+1);{очередная сумма}
 end;
writeln('Приближенное значение при n=',n,' =',s:10:8);
write('Аналитическое значение=',(x*exp(-x)-exp(-x)+1):10:8);
readln
end.

uses crt;
var x,e,s,t:real;
    i:integer;
begin
clrscr;
write('x=');readln(x);
write('e=');readln(e);{точность, например 0,00001}
s:=0;t:=-1;
i:=1;
while abs(t)>=e do{пока очередной член больше точности, вычисляем}
 begin
  t:=-t*x/i;
  s:=s+t*(i+1);
  i:=i+1;
 end;
writeln('Приближенное значение при e=',e:0:5,' =',s:10:8);
write('Аналитическое значение=',(x*exp(-x)-exp(-x)+1):10:8);
readln
end.

uses crt;
var i,n:byte;sum,x:real;
function f(a:byte):longint;
var i:byte;temp:longint;
begin
temp:=1;
for i:=2 to a do
temp:=temp*i;
f:=temp;
end;
function e(a:real;b:byte):real;
begin
e:=exp(b*ln(a));
end;
begin
clrscr;
write('Length: ');
readln(n);
write('X: ');
readln(x);
for i:=1 to n do
if(odd(i)=false)then
sum:=sum+(((i+1)*e(x,i))/f(i))
else
sum:=sum-(((i+1)*e(x,i))/f(i));
writeln('Sum: ',sum:0:2);
readkey;
end.

function f(a:byte):longint;
var i:byte;temp:longint;
begin temp:=1;
for i:=2 to a do temp:=temp*i;
f:=temp;
end;