program secventa1;
type vector = array [1..500000] of integer;
var v:vector;
    i,j,k,x,n:integer;
    min,max:longint;
    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:=0;
  min:=-maxint;
  for i:=1 to n-k+1 do
    begin
      if min < v[i] then
        begin
          x:=i;
          min:=v[i];
        end;
    end;
  max:=min;
  writeln(fout,x,' ',x+n-x,' ',max);
  close(fout);
end.