program multimi2;
var f,g:text;
    a,b,c:array[1..1000] of int64;
    n,nr1,nr2,i,sb,sc,dmin:int64;
begin
  assign(f,'multimi2.in');reset(f);
  assign(g,'multimi2.out');rewrite(g);
   read(f,n);
   sb:=0;
   sc:=0;
   nr1:=1;
   nr2:=1;
  for i:=1 to n do a[i]:=1;
    for i:=1 to n do
      if(i+i+1<=n) then
           begin
             b[nr1]:=i;
             sb:=b[nr1]+sb;
             inc(nr1);
             b[nr1]:=i+1;
             sb:=sb+b[nr1];
             c[nr2]:=i+i+1;
             sc:=sc+c[nr2];
             inc(nr2);
           end
                   else
           begin
             b[nr1]:=i;
             sb:=sb+b[nr1];
             inc(nr1);
             c[nr2]:=i+1;
             sc:=sc+c[nr2];
             inc(nr2);
           end;
      dec(nr1);
      dec(nr2);
      dmin:=sc-sb;
         writeln(g,dmin),' ';
         writeln(g,nr1-1);
   for i:=1 to nr1-1 do write (g,b[i],' ');
         writeln(g);
         writeln(g,nr2-2);
       for i:=1 to nr2-2 do write (g,c[i],' ');
    close(f);
      close(g);
      end.