Program kfib;
var k,i,j,aux:longint;
    f,q:text;
begin
assign(f,'kfib.in');
reset(f);
assign(q,'kfib.out');
rewrite(q);
readln(f,k);
k:=k mod 666013;
if k=0 then write(q,0)
else if k=1 then write(q,1)
else begin
        i:=1;
        j:=0;
        while k-1>0 do begin
                aux:=i;
                i:=((i mod 666013)+(j mod 666013)) mod 666013;
                j:=aux;
                dec(k);
        end;
        writeln(q,i);
end;
close(f);
close(q);
end.