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