free pascal编程求解1 2 3 ... n