var i,j,n,max,m,x,c:integer;
        t:array[1..100] of integer;
        f:text;
        begin
        assign(f,'scmax.in');
        reset(f);
        read(f,n);
        readln(f);
        for i:=1 to n do
        read(f,t[i]);
                for i:=n-1 downto 1 do begin
                m:=0;
                c:=t[i];
                for j:=i+1 to n do
                if t[j]>c then
                inc(m);
                if m>max then begin
                max:=m;
                x:=i;
                end;
                end;
                assign(f,'scmax.out');
                rewrite(f);
        write(f,max);
        writeln(f);
        c:=t[x]-1;
        for i:=x to n do
        if t[i]>c then begin
        write(f,t[i],' ');
        c:=t[i];
        end;
        close(f);
        end.