var     i,j,n,max,p:longint;
        f1,f2:text;
        a,b,c:array[0..100000]of longint;

begin
  assign(f1,'scmax.in');
  reset(f1);
  assign(f2,'scmax.out');
  rewrite(f2);
  readln(f1,n);

  for i:=1 to n do
    read(f1,a[i]);

  max:=0;
  for i:=n downto 2 do
    begin
      if b[i]=0 then b[i]:=1;
      for j:=i downto 1 do
        if a[j]<a[i] then
          begin
            if b[j]<=b[i] then begin b[j]:=b[i]+1; c[j]:=i; end;
            if b[j]>max then begin max:=b[j]; p:=j; end;
          end;
    end;

    writeln(f2,max);
  i:=p;

  while i<>0 do
    begin
      write(f2,a[i],' ');
      i:=c[i];
    end;

  close(f1);
  close(f2);
end.