VAR
 X:REAL;
 N:WORD;


Function SUMS(Xs:REAL; Ns:WORD):REAL;
 VAR
   a,S:REAL;
   Is:Integer;
 Begin
  a:=1;
  S:=1;
  For Is:=1 to Ns do
  begin
   a:=-a*Xs*Xs/(2*Is-1)/(2*Is);
   S:=S+a;
  end;
  SUMS:=S;
 End;

BEGIN
 Write('X= ');
 ReadLn(X);
 Write('N= ');
 ReadLn(N);
 WriteLn('         Results of calculation:');
 WriteLn('    X          SUM          N       Cos(X)');
 WriteLn;
 WriteLn(X:8:5,'     ',SUMS(X,N):8:5,'     ',N:3,'     ',Cos(X):8:5);
 ReadLn;
END.