Statemen CASE-OF digunakan untuk memilih jika terdapat lebih dari dua kondisi yang setiapnya memerlukan penanganan yang berbeda.
Contoh program:
uses wincrt;
var
harike:integer;
Begin
write(‘Hari ke..=’);
readln(harike);
case harike of
1:Writeln(‘Senin’);
2:Writeln(‘Selasa’);
3:Writeln(‘Rabu’);
4:Writeln(‘Kamis’);
5:Writeln(‘Jumat’);
6:Writeln(‘Sabtu’);
7:Writeln(‘Minggu’);
End;
End.
Hasil eksekusi dari program adalah:
Hari ke..= 4
Kamis