Uses Crt;
Var N,k: Integer;
    m,f,S: Real;

    begin
      ClrScr;
      Write('N='); Readln(N);
      S:=0;
      m:=1; f:=1;
      For k:=1 to N Do
        begin
         m:=m*(-2);
         f:=f*k;
      S:=S+m/(f+1);
      end;
      Writeln('S=',S:8:2);
      Readln;
End.