var v:array[-4..1000001]of integer;
    i,j:longint;
    n,c,k,s:int64;
    f:text;
begin
   assign(f,'multimi2.in');
   reset(f);
   read(f,n);
   close(f);
   k:=(n+1)*n div 4;
   i:=n+2;
   j:=n+3;
   repeat
   i:=i-4;
   j:=j-4;
   v[j]:=1;
   v[i]:=1;
   until i<0;
   for i:=1 to n do
   if v[i]=1 then begin c:=c+1;
                        s:=s+i;
                  end;
   assign(f,'multimi2.out');
   rewrite(f);
   writeln(f,abs(n*(n+1)div 2-2*s));
   writeln(f,c);
   for i:=1 to n do
   if v[i]=1 then write(f,i,' ');
   writeln(f);
   writeln(f,n-c);
   for i:=1 to n do
   if v[i]=0 then write(f,i,' ');
   writeln(f);
   close(f);
end.