var n,sumat,i,j,k,jum1,jum2:longint;
dif:word;
f,g:text;
begin
assign(f,'multimi2.in');reset(f);
assign(g,'multimi2.out');rewrite(g);
read(f,n);
sumat:=(n*(n+1)) div 2;
jum1:=sumat div 2;
jum2:=sumat-jum1;
if jum1>jum2 then
dif:=jum1-jum2
else dif:=jum2-jum1;
writeln(g,dif);
for i:=n div 2 to n do
if ((i*(i+1)) div 2)>=jum1 then begin
writeln(g,i);
for k:=1 to i do write(g,k,' ');
break
end;
writeln(g);
writeln(g,n-i);
for j:=i+1 to n do
write(g,j,' ');
close(f);
close(g);
end.