var count1,count2,j,l,sum1,sum2,dif,n,i,aux:longint;
m1,m2:array[1..200]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 +aux;
m2[i]:=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+m2[l];
end;
dif:=abs(sum1-sum2);
writeln (g,dif);
writeln(g,count1);
for i:=1 to n do
write(g,m1[i]);
writeln(g,count2);
for j:=1 to n do
write(g,m2[j]);
end.