program edi;
var f,g:text;
 i,j,k,n,nr,lg:longint;
 v,v2,aux:array [1..100000] of longint;
begin
 assign(f,'fis.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,'fis.out');
 rewrite(g);
 writeln(g,lg);
 for i:=1 to lg do
  write(g,v2[i],' ');
 close(g);
end.