const max=1000000;
var f,g:text;
x,y,n,poz,i,nrtrue:longint;
a:array[1..max] of boolean;
ok:boolean;
begin
assign(f,'multimi2.in'); reset(f);
assign(g,'multimi2.out'); rewrite(g);
readln(f,n);
x:=trunc( (n*(n+1)/2)/2); {suna unei grupe}
y:=trunc(n*(n+1)/2)-2*x;  {diferenta in modul}
fillchar(a,sizeof(a),false);
ok := true;
poz:=n; nrtrue:=0;
while (a[x-poz]=false)and(x>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.