program Secventa;
var m,n,k,s,min : longint;
    A : array[1..500000] of integer;

procedure Citeste;
var Intrare : text;
    i : longint;
begin
  assign(Intrare,'secventa.in');
  reset(Intrare);
  readln(Intrare,n,k);
  for i:=1 to n do read(Intrare,A[i]);
  close(Intrare);
end;

procedure minim(st : longint);
var i : integer;
begin
  m:=st;
  for i:=st+1 to st+k-1 do
   if A[i]<A[m] then m:=i;
  if A[m]>min then
   begin
     min:=A[m];
     s:=st;
   end;
end;

procedure Calculeaza;
begin
  minim(1);
  while m<=n-k do minim(m+1);
end;

procedure Scrie;
var Iesire : text;
begin
  assign(Iesire,'secventa.out');
  rewrite(Iesire);
  write(Iesire,s,' ',s+k-1,' ',min);
  close(Iesire);
end;

begin
  Citeste;
  Calculeaza;
  Scrie;
end.