var n,k,i,st,dr,rez,poz,min,max,p:longint;
    v:array[0..500000]of longint;
begin
  assign(input,'secventa.in');reset(input);
  assign(output,'secventa.out');rewrite(output);
  readln(n,k);
  for i:=1 to n do read(v[i]);
  min:=1;
  st:=1;dr:=0;
  for i:=2 to k do
        if v[i]<v[min] then
                min:=i;
  p:=k+1;
  st:=1;
  dr:=n;
  max:=min;
  while p<=(n-k+1) do
        begin
        while v[p]<v[max] do
                inc(p);
        min:=p;
        for i:=p+1 to p+k-1 do
                if v[i]<v[min] then
                        min:=i;
        if v[min]>v[max] then
                begin
                max:=min;
                st:=p;
                dr:=p+k-1;
                end;
        p:=min+1;
        end;
  writeln(st,' ',dr,' ',v[max]);
  close(input);close(output);
end.