program Project2; {$APPTYPE CONSOLE} uses SysUtils; var f1,f2:text; s,r,i:integer; a:array[0..1000000] of integer; begin assign(f1,'Jamming.dat'); reset(f1); assign(f2,'Jamming.sol'); rewrite(f2); readln(f1,s); a[1]:=1; a[0]:=1; for i:=1 to s+2 do a[i]:=a[i-1]+a[i-2]; r:=a[s]*a[s]; write(f2,r); close(f1); close(f2); end.