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

begin
  read(n);
  for i := 1 to n do
    read(a[i]);
  for i := 2 to n - 1 do
    if (a[i] > a[i + 1]) and (a[i] > a[i - 1])
      then writeln(i - 1, i, i + 1);
end.