讨论简单pascal程序福利