pascal if1 作业