program edi;
var f,g:text;
 i,j,k,n,lg,nr:longint;
 v,v2,aux:array [1..100000] of longint;
begin
 assign(f,'scmax.in');reset(f);readln(f,n);
 for i:=1 to n do read(f,v[i]);close(f);
 for i:=1 to n do begin
  nr:=1;aux[1]:=v[i];
  for j:=i to n do
   if aux[nr]<v[j] then begin
    inc(nr);aux[nr]:=v[j];end;
  if lg<nr then for k:=1 to nr do begin
    v2[k]:=aux[k];lg:=nr;
    end;end;
 assign(g,'scmax.out');
 rewrite(g);writeln(g,(lg));
 for i:=1 to lg do write(g,v2[i],' ');
 close(g);
end.