var as,bs,count1,count2,j,l,sum1,sum2,dif,n,i,aux:longint;
m1,m2:array[1..9999999]of longint;
f,g:text;
begin
assign(f,'multimi2.in');reset(f);
assign(g, 'multimi2.out');rewrite(g);
count1:=0;
count2:=0;
sum1:=0;
sum2:=0;
read(f,n);
aux:=n;
for i :=1 to n do
begin
m1[i]:=i;
m1[i+1]:=aux;
m2[i]:=i+1;
m2[i+1]:=aux-1;
aux:=aux-2;
end;
for j :=1 to n do
begin
sum1:=sum1+m1[j];
count1:=count1+1;
end;
for l:=1 to n do
begin
sum2:=sum2+m2[l];
count2:=count2+1;
end;
dif:=abs(sum1-sum2);
writeln (g,dif);
writeln(g,count1);
for as:=1 to count1 do
write(g,m1[as],' ');
writeln(g,count2);
for bs:=1 to count2 do
write(g,m2[bs],' ');
close(f);
close(g);
end.