program ssss;
var
    n,i,max,j,t,max2:longint;
    l,a:array[1..1000005] of longint;
    f,g:text;
begin
assign(f,'scmax.in'); reset(f);
assign(g,'scmax.out'); rewrite(g);
readln(f,n);
  for i:=1 to n do
    read(f,a[i]);
    l[n]:=1;
    max2:=0;
      for i:=n-1 downto 1 do
        begin
        max:=0;
          for j:=i+1 to n do
            begin
               if (a[j]>a[i]) and (l[j]>max) then
                 begin
                 max:=l[j];
                 end;
               l[i]:=1+max;
               if l[i]>max2 then
                 begin
                 max2:=l[i];
                 t:=i;
                 end;
            end;
        end;
        writeln(g,max2);
        write(g,a[t],' ');
          for i:=t+1 to n do
            begin
              if (a[i]>a[t]) and (l[i]=max2-1) then
                begin
                  write(g,a[i],' ');
                  max2:=max2-1;
                end;
            end;
close(f);
close(g);
end.