pascal 基础算法(提高) useful