var a,q:array[1..500000] of longint;
    n,k,i,st,dr,rez,poz:longint;
    f,g:text;
begin
 assign(f,'secventa.in'); reset(f);
 assign(g,'secventa.out'); rewrite(g);
 read(f,n,k);
 for i:=1 to n do
  read(f,a[i]);
 rez:=-2000000000;
 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(dr>=st) 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
   inc(st);
  if a[q[st]]>rez then begin
   rez:=a[q[st]];
   poz:=i;
  end;
 end;
 writeln(g,poz-k+1,' ',poz,' ',rez);
 close(f); close(g);
end.