var a:array[1..500]of integer;
    n,k,mi,po,va,ma,im,sm,i,j:longint;
    f,g:text;

begin
assign(f,'secventa.in');
reset(f);
readln(f,n,k);
mi:=1;
va:=maxint;
for i:=1 to k do begin
   read(f,a[i]);
   if a[i]<va then begin
                   va:=a[i];
                   po:=i;
                   end;
end;
ma:=va;
im:=1;
sm:=i;
for i:=i+1 to n do begin
   mi:=mi+1;
   read(f,a[i]);
   if a[i]<va then begin
                   po:=i;
                   va:=a[i];
                   end
              else if mi>po then begin
                                 va:=maxint;
                                 for j:=mi to i do
                                    if a[j]<va then begin
                                                    va:=a[j];
                                                    po:=j;
                                                    end;
                                 if va>ma then begin
                                               ma:=va;
                                               im:=mi;
                                               sm:=i;
                                               end;
                                 end;
end;
assign(g,'secventa.out');
rewrite(g);
write(g,im,' ',sm,' ',ma);
close(g);
end.