var f:text;
z1,z,n,k,i,j:longint;
max,m:integer;
v:array[1..500000] of integer;
begin
assign(f,'secventa.in');
reset(f);
readln(f,n,k);
for i:=1 to n do read(f,v[i]);
close(f);
m:=v[1];
for i:=1 to k do if v[i]<m then m:=v[i];
z:=1;
z1:=k;
max:=m;
for i:=k+1 to n do
begin
if m=v[i-k] then
                begin
                m:=v[i];
                for j:=i-k+1 to i do
                if m>v[j] then m:=v[j];
                end;
if m>max then begin
                max:=m;
                z:=i-k+1;
                z1:=i;
                end;

end;

assign(f,'secventa.out');
rewrite(f);
writeln(f,z,' ',z1,' ',max);
close(f);
end.