pascal从键盘输入一个n,求一-n之间的积数和,偶数和