program bbb;

var
  n, i : integer;
  a : array [1 .. 2005] of longint;

procedure cauA;
  var
    c : integer;
    min : longint;
    b : array [1 .. 2005] of longint;
  begin
    c:=0;
    min:=2147483647;
    for i:=1 to n do
      begin
        if a[i] < min then
          begin
            min:=a[i];
            c:=1;
            b[c]:=i;
          end
        else if a[i] = min then
          begin 
            inc(c);
            b[c]:=i;
          end;
      end;
    if (c <> 0) then
      begin
        writeln(min);
        for i:=1 to c do
          write(b[i], ' ');
      end;
    writeln;
  end;

procedure cauB;
  var
    c : integer;
    max, max2 : longint;
  begin
    c:=0;
    max:=-2147483648;
    max2:=-2147483648;
    for i:=1 to n do
      begin
        if a[i] > max then 
          begin
            max2:=max;
            max:=a[i];
            inc(c);
          end
      end;
    if (c <> 0) then
      begin
        writeln(max2);
        for i:=1 to n do
          if a[i] = max2 then write(i, ' ');
      end;
    writeln;
  end;

procedure cauC;
  var
    l, r, maxl, maxr : longint;
    find : boolean;
  begin
    maxl:=0;
    maxr:=0;
    find:=false;
    for i:=1 to n do
      begin
        if a[i] = 0 then
          begin
            if find then
              r:=i
            else
              begin
                l:=i;
                r:=i
              end;
            find:=true
          end
        else
          begin
            if (find) and (abs(r - l) > abs(maxr - maxl)) then
              begin
                maxr:=r;
                maxl:=l;
              end;
            find:=false;
          end
      end;
      if (maxl <> 0) and (maxr <> 0) then
        writeln(maxl, ' ', maxr);
  end;

begin
  read(n);
  for i:=1 to n do read(a[i]);
  writeln('Cau A');
  caua;
  writeln('Cau B');
  caub;
  writeln('Cau C');
  cauc;
end.