var n,i,k,d,m,l,s,s1,s2:longint;
    f,g:text;
begin
assign(f,'multimi2.in'); reset(f);
assign(g,'multimi2.out'); rewrite(g);
read(f,n);
s:=n*(n+1) div 4;
d:=0;k:=0;
repeat
k:=k+1;
d:=d+k;
if (s-d>k) and (s-d<=n) then begin
                             m:=s-d;
                             l:=k;
                             break;
                             end;
until false;
s1:=d+m;
s2:=n*(n+1) div 2-s1;
writeln(g,abs(s1-s2));
if m<>0 then writeln(g,l+1)
        else writeln(g,l);
for i:=1 to l do write(g,i,' ');
if m<>0 then writeln(g,m);
if m<>0 then writeln(g,n-(l+1))
        else writeln(g,n-l);
for i:=l+1 to n do
       if i<>m then write(g,i,' ');
close(f);
close(g);
end.