/FIBO4 - Fibonaci

<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.