Pascal模拟测试四 -