var i,j,n,jmin,smin,rez,k,sa,st:longint;
    v:array[1..500000]of integer;
    min:array[1..500000]of integer;

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]);
smin:=1;
min[1]:=v[1];
jmin:=1;
for i:=2 to k do
    begin
    while (min[smin]>v[i])and(smin>0) do
        dec(smin);
    inc(smin);
    min[smin]:=v[i];
    end;
rez:=-maxint;
if min[jmin]>rez then
        begin
        rez:=min[jmin];
        sa:=1;
        st:=k;
        end;
for i:=k+1 to n do
    begin
    while (min[smin]>v[i])and(smin>=jmin) do
        dec(smin);
    inc(smin);
    min[smin]:=v[i];
    if v[i-k]=min[jmin] then
       inc(jmin);
    if (min[jmin]>rez) then
        begin
        rez:=min[jmin];
        sa:=i-k+1;
        st:=i;
        end;
    end;
writeln(sa,' ',st,' ',rez);
close(input);close(output);
end.