var n,k,i,j,min,max,maxi,maxj:longint;
    v:array [1..500000] of integer;
begin
 assign(input,'secventa.in'); reset(input);
 assign(output,'secventa.out'); rewrite(output);
  readln(n,k); min:=30001; max:=-30001;
   for i:=1 to n do read(v[i]);
  for i:=1 to n-k+1 do begin
   for j:=i to i+k-1 do
    if min>v[j] then min:=v[j];
   if min>max then begin
    max:=min; maxi:=i; maxj:=i+k-1;
   end;
   min:=30001;
  end;
  writeln(maxi,' ',maxj,' ',max);
 close(input); close(output);
end.