var     a,b,c:array[0..100000] of longint;
        n,i,j,max,poz:longint;
        f,g:text;

begin
  assign(f,'scmax.in');
  assign(g,'scmax.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
    read(f,a[i]);
  c[0]:=-1;
  for i:=n downto 2 do
    begin
      if b[i]=0 then b[i]:=1;
      for j:=i-1 downto 1 do
        begin
          if (a[j]<a[i])and(b[j]<=b[i]) then
            begin
              b[j]:=b[i]+1;
              max:=b[j];
              poz:=j;
              c[j]:=i;
            end;
      end;
    end;
  writeln(g,max);
  i:=poz;
  while c[i]<>-1 do
    begin
      write(g,a[i],' ');
      i:=c[i];
    end;
  close(g);
end.