program multimi;
type vec=array[1..1000000] of 0..1;
var n,i,mid,suma,count,k: longint;
    t: text;
    v: vec;
begin
   assign(t,'multimi2.in'); reset(t);
   read(t,n);
   close(t);
   for i:=1 to n do
       v[i]:=0;
   suma:=n*(n+1) div 2;
   mid:=suma div 2;
   assign(t,'multimi2.out'); rewrite(t);
   writeln(t,abs((suma-mid)-mid));
   suma:=0;
   k:=n;
   count:=0;
    while suma<mid do
      begin
         if suma+k<=mid then
                  begin
                     v[k]:=1;
                     suma:=suma+k;
                     count:=count+1;
                  end;
          k:=k-1;
      end;
   writeln(t,n-count);
   for i:=1 to n do
      if v[i]=0 then  write(t,i,' ');
   writeln(t);
   writeln(t,count);
   for i:=1 to n do
      if v[i]=1 then  write(t,i,' ');
   close(t);
end.