const e=0.00001; x0=0.5; xk=0.75; h=0.05;
var x:real; k,i:integer;
function f(x:real):real;
begin
f:=(x+1)*exp(x)+(x-1)*exp(-x);
end;
function sum(x:real):real;
var a,s:real; n:integer;
begin
 a:=4*x; s:=a; n:=1;
 while abs(a)>e do begin
 a:=a*(n+1)*x*x/n/(2*n)/(2*n+1);
 s:=s+a;
 inc(n);
 end;
 sum:=s;
end;
begin
x:=x0-h;
k:=round((xk-x0)/h)+1;
writeln(' №   x     S(x)      f(x)');
for i:=1 to k do
begin
 x:=x+h;
 writeln(i:2,' ',x:4:2,' ',sum(x):8:5,' ',f(x):8:5);
 end;
end.

Пример работы:
 №   x     S(x)      f(x)
 1 0.50  2.16982  2.16982
 2 0.55  2.42691  2.42691
 3 0.60  2.69587  2.69587
 4 0.65  2.97793  2.97793
 5 0.70  3.27440  3.27440
 6 0.75  3.58666  3.58666