program scm;
var f:text;
    i,n,j,max,smax,pmax:longint;
    a,poz,v,c: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);
  assign(f,'scmax.out');
  rewrite(f);
  a[1]:=1;
  smax:=1;
  pmax:=1;
  for i:=2 to n do
     begin
     max:=0;
     for j:=1 to i-1 do
       if v[i]>v[j] then
           if a[j]>max then begin
                              max:=a[j];
                              poz[i]:=j
                            end;
     a[i]:=1+max;
     if smax<a[i] then begin
                        smax:=a[i];
                        pmax:=i
                       end;

     end;
   writeln(f,smax);
   for i:=smax downto 1 do
      begin
        c[i]:=v[a[pmax]];
        pmax:=poz[pmax]
      end;
   for i:=1 to smax do write(f, c[i],' ');
   close(f);
   end.