C :

#include <stdio.h>

int main(){
	
	int N, i;
	long long int a[64];
	
	a[0] = 0;
	for (i = 1; i < 36; i++){
		a[i] = 3 * a[i-1] + 2;
	}
	
	while (EOF != scanf("%d", &N)){
		
		printf("%lld\n", a[N]);
	}
	
	return 0;
}

C++ :

#include<stdio.h>

long long f(int n)
{
	if(n==1)
		return 2;
	return f(n-1)*3+2;
}

int main()
{
	int n;
	while(scanf("%d",&n)!=EOF)
		printf("%lld\n",f(n));
	return 0;
}

Pascal :

program p2139(Input,Output);
var
 f1,f2:int64;
 i,n:longint;
begin
 while not eof(Input) do
  begin
   readln(n);
   f1:=2;
   for i:=2 to n do
    begin
     f2:=f1*3+2;
     f1:=f2;
    end;
   writeln(f1);
  end;
end.

Python :

try:
    while True:
        print 3**input()-1
except:
    pass