<Problem>
http://ntucoder.net/Problem/Details/1165
USES CRT;
var n,x,y,z,dem:longint;
begin
readln(n);
x:=1; y:=0; z:=0;
while (dem<n) do begin
inc(dem);
y:=x;
x:=z;
z:=(x+y) mod 1000007;
end;
writeln(z);
readln;
end.