var    
f1,f2,ff:integer;
m:real;
begin 
readln (m);
f1:=1;
f2:=1;
while (ff<=m) do begin
ff:=f1+f2;
f1:=f2;
f2:=ff;

end;
write (ff);
end.