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

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

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

writeln(g,trunc(y));

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

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