var
aa,bb,cc,j,i,k,S:integer;
cars:array[1..10000,1..2]of integer;
f1,f2:text;
 begin
 assign(f1,'JAMMING.dat');
 reset(f1);
   read(f1,S);
   j:=0;
   cc:=1;
   aa:=0;
   bb:=0;
   while j<S do
    begin
      bb:=aa;
      aa:=cc;
      cc:=cc+bb;
      j:=j+1;
    end;
    assign(f2,'JAMMING.sol');
 rewrite(f2);
   write(f2,sqr(cc));
   close(f1);
   close(f2);
end.