var f,g:text;
    v,q,p:array[0..500010]of longint;
    n,k,i,st,dr,max,p2,j:longint;

begin
assign(f,'secventa.in');
assign(g,'secventa.out');
reset(f);
rewrite(g);
read(f,n,k);
for i:=1 to n do read(f,v[i]);
st:=1;
dr:=1;
q[1]:=v[1];
p[1]:=1;
max:=-30001;
for i:=2 to n do
  begin
    while (v[i]<=q[dr])and(dr>=st)do
      dec(dr);
    inc(dr);
    q[dr]:=v[i];
    p[dr]:=i;
    if (i>=k)then
      begin
        while (p[st]<i-k+1)do inc(st);
        if (q[st]>max)then
          begin
            max:=q[st];
            p2:=i;
          end;
      end;
  end;
write(g,p2-k+1,' ',p2,' ',max);
close(f);
close(g);
end.