program scmax;
var f:text;
    a:array[1..10000] of integer;
    i,j,pos,n,posmax,lf:integer;
procedure sccr;
begin
      if a[i]>a[i-1] then
         inc(pos);
      if a[i]<a[i-1] then
          begin
           if pos>posmax then begin
              posmax:=pos;
              lf:=i-posmax;
              end;
           pos:=1;
           end;
      if a[i]=a[i-1] then dec(i);
end;
begin
posmax:=1;
assign(f,'scmax.in');
reset(f);
read(f,n);
pos:=1;  i:=1;
read(f,a[1]);
while not eof(f) do begin
      inc(i); read(f,a[i]); sccr;
      end;
close(f);
if pos>posmax then begin           
   posmax:=pos;
   lf:=i-posmax+1;
   end;
assign(f,'scmax.out');
rewrite(f);
writeln(f,posmax);
for i:=lf to lf+posmax-1 do
    write(f,a[i],' ');
close(f);
end.