百练网第2688题源代码pascal,已经通过