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