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);
t1:=0;
t2:=1;
if (k=1) then write (g,t1)
         else if (k=2) then write (g,t2)
                       else begin for i:=2 to k do begin t:=(t1+t2) mod 666013;
                                                         t1:=t2;
                                                         t2:=t;
                                                                                                           end;
                                                   end;
writeln (g,t);
close (f);
close (g);
end.