program kfib;
var  f,g:text;k,a,b,c,q:longint;
begin
  assign(f,'kfib.in');reset(f);
  assign(g,'kfib.out');rewrite(g);
   readln(f,k);
   a:=0;b:=1;c:=1;q:=0;
      while q<k do begin
      a:=b;b:=c;c:=a+b;q:=q+1;
       end;
       write(g,a mod 666013);
       close(f);close(g);
        end.