var     f,g:text;
        i,j,n,max,maxim,c,ind:longint;
        v,p,nr:array[-1..100010] of longint;

procedure drum(i:longint);
begin
        if p[i]<>0 then  drum(p[i]);
        write(g,v[i],' ');

end;

begin
        assign(f,'scmax.in');
        assign(g,'scmax.out');
        reset(f);
        rewrite(g);
        readln(f,n);
        maxim:=0;
        for i:=1 to n do begin
                read(f,v[i]);
                max:=0;
                for j:=1 to i-1 do
                        if (v[i]>v[j]) and (nr[j]+1>max) then begin
                                max:=nr[j]+1;
                                c:=j;
                        end;
                if max=0 then begin
                        max:=1;
                        c:=0;
                end;
                nr[i]:=max;
                p[i]:=c;
                if nr[i]>maxim then begin
                        maxim:=nr[i];
                        ind:=i;
                end;
        end;
        writeln(g,maxim);
        drum(p[ind]);
        write(g,v[ind]);
        close(g);
end.