Var a,n,i,sum:integer;
Begin
 Readln(n);
 a:=1;
  for i:=1 to n do 
    begin
      sum:=sum+a;
      a:=a*2
    end;
Writeln('Сумма первых ',n,' слагаемых ряда равна ',sum)
End.