1.   1. Bangun Tidur

2.    2. Rapi’in tempat tidur

Ø Kalau saya tidak merapikan tempat tidur maka kamar saya berantakan

3.    3. Mandi

Ø Jika saya tidak mandi maka saya bau’

4.    4. Sarapan

5.    5. Berangkat kuliah

Ø Kalau  saya lewat jalan pramuka maka saya akan telat.

6.    6. Masuk kelas.

7.    7. Kuliah

Deklarasi:

Angka_ke:Integer;

Angka:String;

Deskripsi:

Read  : (Angka_ke);

Pilih (Hari_ke) untuk

1 : hari↔ 'Senin';

s2 : hari ↔'Selasa';

3 : hari ↔ 'Rabu';

4 : hari ↔ 'Kamis';

5 : hari ↔ 'Jum''at';

6 : hari ↔ 'Sabtu';

else hari ↔ 'Minggu';

end {pilih}

write(hari)