var n,ans,j1,i1,ma,mi,j2,a:int64;
    i:longint;
begin
 readln(n);
ans := -maxlongint;
mi := 1000000009;
for i := 1 to n do
begin
    read(a);
    if (a - mi > ans) then
       begin
          i1:=i;
          j1:=j2;
          ans := a - mi;
       end;
    if mi > a then
      begin
           mi := a;
           j2 := i;
      end;
end;
write(j1,#32,i1,#13#10,ans);
end.

Var Min,Max,n:int64;
      A:Array[1..100000] Of Longint;
      i,VT,VT2:longint;
      F,F1:Boolean;
  Begin
    Readln(n);
      For i:=1 to n do Read(a[i]);
         Min:=a[1];Max:=0;VT:=1;
      For i:=1 to n do
          Begin
             If Min>a[i] then Min:=a[i]
                  Else If a[i]-Min>Max then
                        Begin
                              VT2:=a[i];VT:=Min;
                              Max:=a[i]-Min;
                         End;
               End;
      F:=True;F1:=True;
      For i:=1 to n do
         Begin
             If (A[i]=VT) and (F)  then
                  Begin
                        Write(i,' ');
                        F:=False;
                  End
                 Else  If (A[i]=VT2) and (F=False) and (F1=True)  then
                     Begin
                        Write(i,' ');
                         F:=False;
                         Break;
                       End;
               End;
     Writeln;
     Write(Max);
     Readln;
  end.