var f,g:text;
    n,k,i,y,x,min,max,incep,sfarsit:longint;
    a:array[1..500000]of longint;
begin
assign(f,'secventa.in');reset(f);
assign(g,'secventa.out');rewrite(g);
readln(f,n,k);
for i:=1 to n do
    read(f,a[i]);
y:=k;
x:=1;
max:=max-2000000;
min:=maxlongint;
for i:=x to y do
    if a[i]<min then min:=a[i];
if min>max then begin
     max:=min;
     incep:=x;
     sfarsit:=y;
     end;
while y<=n do
      begin
      y:=y+1;
      x:=x+1;
      if a[x-1]=min then
         begin
         min:=maxlongint;
         for i:=x to y do
         if a[i]<min then min:=a[i];
         if min>max then begin
                max:=min;
                incep:=x;
                sfarsit:=y;
                end;
         end;
      end;
writeln(g,incep,' ',sfarsit,' ',max);
close(g);
end.