program scmaz;
type vec=array [1..100000] of longint;
var a,b:vec;
    i,j,n:longint;
    h,x,k,max:longint;
    f,t:text;

procedure citire;
begin
  assign(f,'scmax.in');
  reset(f);
  read(f,n);
  for i:=1 to n do
    read(f,a[i]);
  close(f);
end;

procedure scriere(k:longint; b:vec);
begin
  assign(t,'scmax.out');
  reset(t);
  writeln(t,k);
  for i:=1 to k do
    write(t,a[i],' ');
  close(t);
end;

begin
  citire;

  max:=0;
  h:=0;
  x:=0;
  while (i<(n-x)) or (i=n) do
    begin
      i:=i+1;
      k:=1;
      for h:=1 to n-1 do
        for j:=h+1 to n do
          if a[h]<a[j] then
            begin
              k:=k+1;
              i:=j;
              x:=k;
            end
          else
            k:=1;
      if x>max then
        max:=x;
    end;

  scriere(k,b);
end.