//PascalABC.NET 3.2 сборка 1318

Var
  ar:array of byte;
  i,j,resi,resk,n,k,min:integer; 
b:boolean;
begin
b:=false;
readln(n);
min:=n+10;
setlength(ar,n+1);
for i:=1 to n do
  readln(ar[i]);
for i:=1 to n-2 do
  begin
    for j:=i+1 to n-1 do
      if ar[i]<ar[j] then
      begin
        for k:=j+1 to n do
          if ar[j]>ar[k] then
            begin
              b:=true;
                if min>k-i then
                  begin
                    resi:=i;
                    resk:=k;
                    min:=k-i;
                  end;
            end;
        end;
 end;
if b then write(resi,' ',resk) else write('0');
end.

Пример ввода:
5
1
2
3
4
3
Пример вывода:
3 5