在free pascal中测试正常，但在cena中老是报“选手输出比标准输出长”，而把free pascal的输出和标准输出用二进制比较都完全相同。甚至用free pascal的输出覆盖标准输出也一样报错。最后发现问题是——没有关闭文件！！！free pascal能够容忍，但cena不行！！！
close(input);close(output);