program sir_fibonacci;
var t1,t2,t,i,k:longint;
    f,g:text;
begin
assign (f,'kfib.in'); reset (f);
assign (g,'kfib.out'); rewrite (g);
read (f,k);
k:=k mod (666013*2+2);
t1:=1;
t2:=1;
for i:=3 to k do begin t:=(t1+t2) mod 666013;
                       t1:=t2 mod 666013;
                       t2:=t mod 666013;
                 end;
writeln (g,t);
close (f);
close (g);
end.