var a:array[1..100] of integer;
    f,g:text;
    n,i,nr1,nr,j,dif:integer;
begin
    assign(f,'multimi2.in');
    reset(f);
    assign(g,'multimi2.out');
    rewrite(g);
    readln(f,n);
    for i:=1 to n do
        readln(f,a[i]);
    i:=n;
    while i-4>=0 do begin
                    a[i]:=1;
                    a[i-1]:=2;
                    a[i-2]:=2;
                    a[i-3]:=1;
                    i:=i-4;
                    end;
    nr1:=n div 4 *2;
    case i of
           0:dif:=0;
           1:begin
             a[i]:=1;
             dif:=1;
             inc(nr1);
             end;
           2:begin
             a[1]:=1;
             a[2]:=2;
             dif:=1;
             inc(nr1);
             end;
           3:begin
             a[1]:=1;
             a[2]:=2;
             a[3]:=2;
             dif:=0;
             end;
             end;
   writeln(g,dif);
   writeln(g,nr);
    for i:=1 to n do
        if a[i]=1 then write(g,i,' ');
    writeln(g);
    writeln(g,n-nr1);
    for i:=1 to n do
        if a[i]=2 then write(g,i,' ');
    close(f);
    close(g);
    end.