var   a,b:array[1..1000] of longint;
      f:text;
      i,n,nr,k,pi,j,pj:integer;
      ok:boolean;
begin
assign(f,'scmax.in');
reset(f);
readln(f,n);
i:=1;
read(f,a[i]);
while i<n do
begin inc(i);
      read(f,a[i]);
      nr:=1;
      pi:=i;
      while a[i-1]<=a[i] do
         begin if a[i-1]<a[i] then inc(nr);
               inc(i);
               read(f,a[i]);
         end; pj:=i;
       if nr>k then begin k:=nr;
                          j:=0;
                          fillchar(b,sizeof(b),0);
                          for i:=pi to pj do
                              begin
                                    ok:=false;
                                    if not ok then begin inc(j);
                                                         b[j]:=a[i];
                                                         ok:=true;
                                                   end;
                              end;
                     end;
end;
close(f);
assign(f,'scmax.out');
rewrite(f);
writeln(f,k);
for i:=1 to j do
    write(f,b[j],' ');
close(f);
end.