pascal题目,高手请进,对了一道加10分。