program secventa;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type vector = array [1..500000] of integer;
var v:vector;   
    i,j,k,x,y,n:longint;
    max,max2,lungime:integer;
    fin,fout:text;
begin
  assign(fin,'secventa.in');   
  assign(fout,'secventa.out');   
  reset(fin);   
  rewrite(fout);   
  readln(fin,n,k);   
  for i:=1 to n do  
    read(fin,v[i]);
  max:=-maxint;
  i:=0;
  while i < n do
  begin
        inc(i);
        j:=i;
        while ((v[i]<v[j+1]) and (j<n)) do
        begin
                inc(j);
        end;
        if ((max < v[i]) and (j-i+1>=k)) then
        begin
                max:=v[i];
                x:=i;
                y:=j;
        end;
  end;
  writeln(fout,x,' ',y,' ',max);   
  close(fout);   
end.