program pascal;
var f,g:text;
    pred,x,v:array[1..100000] of longint;
    imax,i,j,n:longint;

     procedure afisare(i:integer);
     begin
     if i<>-1then
             begin
                afisare(pred[i]);
                write(g,v[i],' ');
             end;
     end;

begin
assign(f,'scmax.in'); reset(f);
assign(g,'scmax.out'); rewrite(g);
readln(f,n);

imax:=1;
for i:=1 to n do
 begin
   read(f,v[i]);
   x[i]:=1; pred[i]:=-1;
   for j:=1 to i-1 do
    if (v[i]>v[j]) and (x[i]<x[j]+1) then
         begin
           x[i]:=x[j]+1;
           pred[i]:=j;
         end;
    if x[imax]<x[i] then imax:=i;
 end;
writeln(g,x[imax]);
afisare(imax);
close(f);
close(g);
end.