program ABC;
 uses crt;
   var p,m,i,n,t:integer;
       s:real;
begin
   p:=2;
   m:=2;
   t:=2;
   s:=2;
   writeln('Введите n');
   Readln(n);
    for i:=2 to n do
      begin
       p:=p*4;     //   рез-т возведения в нечетную степень
       m:=m+2;     //   новый член прогрессии в числителе
       t:=m+t;     //   новый числитель
       s:=t/p+s;   //   сумма
      end;
   writeln('s=',s);
end.