Lynx_B: Contoh Program menggunakan procedure dan case of DI Pascal