program secventa;
var f:text;
    n,k,i,j,e,v:longint;
    min,max:longint;
    t:array[1..500000] of longint;
begin
assign(f,'secventa.in');reset(f);
readln(f,n,k);
min:=30000;
e:=1;
v:=k;
for i:=1 to k do begin
    read(f,t[i]);
    if( t[i]<min)  then
        min:=t[i];

end;
i:=k;
max:=min;
while i<n do begin
   inc(i);
   min:=30000;
   for j:=2 to k do
      t[j-1]:=t[j];
   read(f,t[k]);
   for j:=1 to k do
      if t[j]<min then begin
        min:=t[j];
        e:=i-k+1;
        v:=i;
      end;
   if max<min then
      max:=min;
end;
close(F);
assign(f,'secventa.out');rewrite(f);
write(f,e,' ',v,' ',max);
close(f);
end.