program multime2;
var f,g:text;
    i,k:longint;
    s,s1,s2,n:int64;
    viz:array[1..1000000]of 0..1;
begin
     assign(f,'multimi2.in');
     assign(g,'multimi2.out');
     reset(f);
     rewrite(g);
     read(f,n);
     s1:=(n*(n+1))div 4;
     s2:=((n*(n+1))div 2)-s1;
     for i:=1 to n do
         viz[i]:=0;
     s:=0;
     i:=n+1;
     k:=0;
     repeat
           i:=i-1;
           if i+s<=s1 then
           begin
                inc(s,i);{echivalent cu s:=s+i;}
                viz[i]:=1;
                k:=k+1;
           end;
     until s=s1;
     writeln(g,abs(s1-s2));
     writeln(g,k); {nr elem in s1}
     for i:=1 to n do
         if viz[i]=1 then write(g,i,' ');
     writeln(g);
     writeln(g,n-k); {nr elem in s2}
     for i:=1 to n do
         if viz[i]=0 then write(g,i,' ');

     close(f);
     close(g);
end.