var v,v1,v2:array [1..1000] of word;
    s1,s2,i,n,i1,i2:word;
    f,g:text;
begin
     assign(f,'multimi2.in');
     reset(f);
     assign(g,'multimi2.out');
     rewrite(g);
     read(f,n);close(f);
     s1:=0;s2:=0;
     i1:=1;i2:=1;
     for i:=n downto 1 do
              if s1=s2 then begin v1[i1]:=i; s1:=s1+i; i1:=i1+1; end
                       else if s1<s2 then begin v1[i1]:=i; s1:=s1+i; i1:=i1+1; end
                       else begin v2[i2]:=i; s2:=s2+i; i2:=i2+1; end;
     if s2>s1 then writeln(g,s2-s1)
              else writeln(g,s1-s2);
     writeln(g,i1-1);
     for i:=1 to i1-1 do write(g,v1[i],' ');
     writeln(g);
     writeln(g,i2-1);
     for i:=1 to i2-1 do write(g,v2[i],' ');
     close(g);
end.