var f:array[0..100000] of longint;
    i,k:longint;
    g:text;

begin
assign(g,'kfib.in');
reset(g);
read(g,k);
close(g);

f[0]:=0;
f[1]:=1;
f[2]:=1;
for i:=3 to k do
 f[i]:=(f[i-1]+f[i-2]) mod 666013;

assign(g,'kfib.out');
rewrite(g);
write(g,f[k]);
close(g);
end.