https://suachuamaynhanh.com/phan-mem/hang-const-trong-pascal/