program 2_kaijo(input,output); var n:integer; function f(n:integer):real; var a,b:real; i:integer; begin a:=1; b:=0; for i:=1 to n-1 do begin a:=a*2; b:=b+a end; f:=a*2; end; begin writeln('２の階乗計算.何乗したいですか？'); readln(n); writeln(f(n):0:0); end.