Const
 Eps=0.001;

Function Sum(x:real):real;
var
 S,a:real;
 i:word;
begin
 a:=x*2;
 S:=a;
 i:=0;
 Repeat
  Inc(i);
  a:=-a*x*x*2*2/(i*2*(i*2+1));
  S:=S+a;
 Until Abs(a)<Eps;
 Sum:=S;
end;

Begin
 Writeln('Result: ',Sum(0.2):0:5);
 Readln
End.

Const
 Eps=0.001;
 A=0.2;
 B=0.8;
 H=0.2;

Var
 N,i:byte;
 x:real;

Function Sum(z:real):real;
var
 S,q:real;
 j:word;
begin
 q:=-z*z;
 S:=q;
 j:=1;
 Repeat
  Inc(j);
  q:=-q*(j-1)*(j-1)*z*z/(j*j);
  S:=S+q;
 Until Abs(q)<Eps;
 Sum:=S;
end;

Begin
 N:=Round((B-A)/H);
 For i:=0 to N do
  begin
   x:=A+H*i;
   writeln('x= ',x:3:1,'    Sum= ',Sum(x):0:5);
  end;
 Readln
End.