Const
 eps = 2e-2;
 h = 5e-2;
 a = 4;
 b = 5;

function f(x:real):real;
var s : real;
begin
 s := sqrt(x);
 f := (x+1-s)*exp(s) - (x+1+s)*exp(-s)
end;

function g(x:real):real;
var
 r,d: real;
 s,t: real;
 k: integer;
begin
 r := f(x);
 t := sqrt(x) * 8;
 s := 0;
 k := 0;
 repeat
   k := k + 1;
   t := t * x / (2*k) / (2*k + 1);
   s := s + t * sqr(k);
   d := abs(r - s);
 until d <= eps;
 g := s
end;

var
 x,m,n,d:real;

begin
 writeln('    x    g(x)    f(x)    d');
 x := a;
 while x <= b do
   begin
   m := f(x);
   n := g(x);
   d := abs(m - n);
   writeln(x:5:2, n:8:2, m:8:2, d:8:2);
   x := x + h
   end;
end.