my NOIp program in pascal