program scmax;
var f,g:text;
    n,i,imax,j:longint;
    a,pred,v:array[1..100000] of longint;
procedure afis(i:longint);
begin
if i<>0 then
  begin
  afis(pred[i]);
  if a[i]<>0 then
  write(g,a[i],' ');
  end;
end;
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]);
    imax:=1;
  for i:=1 to n do
      begin
      v[i]:=1;
      pred[i]:=-1;
        for j:=1 to i-1 do
          begin
            if (a[j]<a[i]) and (v[j]+1>v[i]) then
              begin
              v[i]:=v[j]+1;
              pred[i]:=j;
              end;
          end;
        if v[i]>v[imax] then
          imax:=i;
      end;
      writeln(g,imax);
  afis(imax);
close(f);
close(g);
end.