const max=1000000;
var f,g:text;
gaus,x,y,n,poz,i,nrtrue:longint;
a:array[1..max] of boolean;
begin
assign(f,'multimi2.in'); reset(f);
assign(g,'multimi2.out'); rewrite(g);
readln(f,n);
gaus:=(n*(n+1)) div 2;
x:=gaus div 2;            {suna unei grupe}
y:=gaus mod 2;            {diferenta in modul}

fillchar(a,sizeof(a),false);
poz:=n;
nrtrue:=0;
while (x-poz>0) do begin
                              x:=x-poz;
                              a[poz]:=true;
                              poz:=poz-1;
                              inc(nrtrue);
                                  end;

if x>0 then begin
            inc(nrtrue);
            a[x]:=true;
            end;

writeln(g,y);

writeln(g,nrtrue);
for i := 1 to n do
             if a[i]=true then write(g,i,' ');
writeln(g);
writeln(g,n-nrtrue);
for i := 1 to n do
             if a[i]=false then write(g,i,' ');

close(f);
close(g);
end.