https://gameboxx.me/contoh-program-pascal/contoh-program-pascal-2/