Pascal 语言练习题 -