program multimi2;
var f,g:text;
    n,t,c,i,s:longint;
begin
assign(f,'multimi2.in');
assign(g,'multimi2.out');
reset(f);
rewrite(g);
read(f,n);
t:=(n*(n+1))div 2;
if (t mod 2=1)then writeln(g,'1') else writeln(g,'0');
i:=n+1;
c:=0;
s:=0;
while (s<=(t div 2))do
  begin
    i:=i-1;
    s:=s+i;
    c:=c+1;
  end;
s:=s-i;
if (s=t div 2)then writeln(g,c-1) else writeln(g,c);
c:=c-1;
for i:=n downto n-c+1 do write(g,i,' ');
if (s<>t div 2)then writeln(g,(t div 2)-s) else writeln(G);
if (s=t div 2)then writeln(g,n-c) else writeln(g,n-c-1);
for i:=1 to n-c do
  if (i<>(t div 2)-s)then write(g,i,' ');
close(f);
close(g);
end.