S[1]:=1;                   {以第一个元素为末元素的递增序列长度肯定是1}
    For i←2 to n do
      For j←1 to i-1 do
        Begin
          搜索A[i]前面比A[i]小的数A[j]，得到对应的S[j];
          S[i]←max{S[j]}+1;
        End;
    Write(max{S[i]});


//delphi/7196