var n,k,i:longint;
    x1,x2:int64;
begin
// assign(input,'multimi2.in'); reset(input);
// assign(output,'multimi2.out'); rewrite(output);
  readln(n);
  k:=trunc(sqrt(n*(n+1)/2));
  for i:=1 to k do x1:=x1+i;
  for i:=k+1 to n do x2:=x2+i;
  writeln(abs(x1-x2));
  writeln(k);
  for i:=1 to k-1 do write(i,' ');
  writeln(k);
  writeln(n-k);
  for i:=k+1 to n-1 do write(i,' ');
  writeln(n);
// close(input); close(output);
end.