中学时的各种黑历史Pascal代码，只是备份，这写代码早就不维护了