Contoh Program Pascal dengan menggunakan statment CASE-OF

uses crt;
var
x: byte;
begin
gotoxy(5,6);
write('Masukan bil bulat( 0-6 )= ');
readln(x);
gotoxy(4,8);
case (x) of
1:writeln(' Senin.');
2:writeln(' Selasa.');
3:writeln(' Rabu.');
4:writeln(' Kamis.');
5:writeln(' Jum`at.');
6:writeln(' Sabtu.');
0:writeln(' Minggu.')
else
writeln(' Tidak ada hari.');

end;
end.