program fibo;
var f,g:text;
    k,pred,antepred,elcrt,i:longint;

begin
 assign (f,'kfib.in') ; reset (f);
 assign (g,'kfib.out'); rewrite (g);
 read (f,k);
 elcrt:=1; pred:=1; antepred:=1;
 k:=k mod (666013*2+2);
 for i:=3 to k do
 begin
  antepred:=pred mod 666013; pred:=elcrt mod 666013;
  elcrt:=(antepred+pred) mod 666013;
 end;
 write (G,elcrt);
 close (F);
 close (g);
end.