program secvenata;
var  min, min1,x,max:integer;
     n,inc,inc1,k,i,j:longint;
     f:text;
begin
assign(f,'secventa.in'); reset(f);
readln(f,n,k);
i:=1;
min1:=maxint;
min:=min1;
inc:=0;
inc1:=0;
max:=-maxint;
inc:=1;
while i<=n-k do
begin
      read(f,x);
      if i-k+1>inc then
      begin
           if max<min then max:=min;
           if x<min1 then
                         begin
                              min:=x;
                              inc:=inc+1;
                              min1:=maxint;
                         end
                     else begin
                               min:=min1;
                               inc:=inc+1;
                               min1:=maxint;
                           end;
       end
       else
      if x<min then
                   begin
                        min:=x;
                        min1:=maxint;
                    end
                else if min1>x then
                                    begin
                                          min1:=x;
                                          inc1:=inc+1;
                                      end;
       i:=i+1;
end;
min:=maxint;
for j:= 1 to k do
begin
     read(f,x);
     if  min>x then min:=x;
end;
close(f);
if max<min then
               begin
                    inc:=i;
                    max:= min;
                end;
assign(f,'secventa.out'); rewrite(f);
writeln(f,inc,' ',inc+k-1,' ',max);
close(f);
end.