program jamming; {$APPTYPE CONSOLE} var f1,f2:text; p,s,i:integer; a,b:array[1..10000]of integer; begin assign(f1,'JAMMING.dat'); reset(f1); assign(f2,'JAMMING.sol'); rewrite(f2); read(f1,s); a[1]:=1; a[2]:=2; i:=3; for i:=3 to s do begin a[i]:=a[i-2]+a[i-1]; end ; p:=a[s]*a[s] ; writeln(f2,p); close(f1); close(f2); end.