https://magicwin138.com/contoh-program-pascal-array/