Contoh Program Case .... of

1.1         Program Case 1

program nama_hari;

uses crt;

var hari:integer;

kategori:string;

begin

        clrscr;

        write('masukkan hari dalam angka: ');

        readln(hari);

case hari of

1 : kategori :='senin';

2 : kategori :='selasa';

3 : kategori :='rabu';

4 : kategori :='kamis';

5 : kategori :='jumat';

6 : kategori :='sabtu';

7 : kategori :='minggu';

else kategori:='libur';

end;

writeln ('angka yang masukkan adalah hari ',kategori);

readln;

end.