Penerapan CASE OF dalam Free Pascal

Selain IF dan IF ELSE dalam struktur kontrol percabangan pemrograman Pascal ada juga CASE OF.
Case Of digunakan pada beragam syarat. Berikut format penulisannya:
 case (variabel) of
  kondisi1 : pernyataan1;
  kondisi2 : pernyataan2;
  kondisi3 : pernyataan3;
end;
readln;

Disini saya akan berikan 2 contoh penggunaannya dalam free pascal sesuai dengan dalam video pada channel youtube saya yang bisa dilihat pada link di bawah ini.
https://youtu.be/T9Wb81S_gsw

Contoh 1:
Membuat program untuk menampilkan nama bulan sesuai dengan angka yang diinput. Contoh: jika memasukkan angka 5 maka yang akan muncul adalah Mei dan seterusnya.
Script programnya:

Outputnya:

Contoh 2:
Script programnya:

Outputnya: