https://edu.hanifmr.com/2011/05/contoh-program-case-2-pada-pemrograman-pascal.html