program fibon;
var f0,f1,f2:int64;
    n,i:longint;
begin
assign(input,'kfib.in');
reset(input);
assign(output,'kfib.out');
rewrite(output);

 readln(n);
f0:=0; f1:=1;
if n=0 then writeln(f0)
        else if n=1 then writeln(f1)
                else begin
                     for i:=2 to n do begin
                         f2:=(f0+f1) mod 666013;
                         f0:=f1;
                         f1:=f2;
                         end;
                         writeln(f2);
                         end;
close(output);
end.