program fibonaci;
var a:array[1..10000000] of longint;
  fi,fo:text;
  i,n:longint;
begin
assign(fi,'fib.in');reset(fi);
assign(fo,'fib.out');rewrite(fo);read(fi,n);
a[1]:=1;a[2]:=1;
for i:=3 to n do begin
a[i]:=a[i-2]+a[i-1];
 end;
write(fo,a[i] mod 666013);
close(fi);close(fo);
end.