program fib;
var f,g:text;
    aux,i,pr,ul,k:longint;
begin
assign (f,'kfib.in'); reset (f);
assign (g,'kfib.out'); rewrite (g);
read (f,k);
pr:=1; ul:=1;
k:=k mod (666013*2+2);
for i:=3 to k do begin aux:=(pr+ul) mod 666013;
                       pr:=ul;
                       ul:=aux;
                 end;
write (g,ul);
close (f);
close (g);
end.