var
k,n,m,t:qword;
begin
readln(k);
m:=1;n:=1;
while k>n do
begin
k:=k-n;
t:=m;
m:=m+n;
n:=t;
end;
writeln(m*m+n*n);
end.