var n,k,fin,ini,pimax,i,max,pfmax:longint;
a,b:array[0..500001] of longint;
f,g:text;

function secv(i:longint; var pi,pf:longint):boolean;
begin
pi:=i;
pf:=i;
while (pf-pi+1<k) and (a[pi-1]>=a[i]) and (pi>1) do
	dec(pi);
while (pf-pi+1<k) and (a[pf+1]>=a[i]) and (pf<n) do
	inc(pf);
if pf-pi+1=k then
		secv:=true
else  secv:=false;
end;

begin
assign(f,'secventa.in');
assign(g,'secventa.out');
reset(f);
rewrite(g);
read(f,n,k);
max:=-maxlongint;
for i:=1 to n do read (f,a[i]);
for i:=1 to n do
	if a[i]>max then
		if secv(i,ini,fin) then begin
      	max:=a[i];
         pimax:=ini;
         pfmax:=fin;
         end;
writeln(g,pimax,' ',pfmax,' ',max);      	
close(f);
close(g);
end.