var f,g:text;
    n,k,i,rez,st,dr,poz,j:longint;
    er:integer;
    s,x:string;
    a,q:array[1..500000] of longint;
begin
assign(f,'secventa.in');reset(f);
assign(g,'secventa.out');rewrite(g);
readln(f,n,k);j:=0;
while not eoln(f) do begin
      read(f,s);s:=s+' ';
      while pos(' ',s)<>0 do begin
              inc(j);
              x:=copy(s,1,pos(' ',s)-1);
              val(x,a[j],er);
              delete(s,1,pos(' ',s));
          end;
end;
rez:=maxlongint*-1;
st:=1;
dr:=0;
for i:=1 to k-1 do begin
    while (dr>=st) and (a[i]<=a[q[dr]]) do dr:=dr-1;
    dr:=dr+1;
    q[dr]:=i;
end;
for i:=k to n do begin
    while (st<=dr) and (a[i]<=a[q[dr]]) do dr:=dr-1;
    dr:=dr+1;
    q[dr]:=i;
    while (st<=dr) and (q[st]<i-k+1) do st:=st+1;
    if a[q[st]]>rez then begin
       rez:=a[q[st]];
       poz:=i;
    end;
end;
writeln(g,poz-k+1,' ',poz,' ',rez);
close(g);
end.