Case of dalam Pascal

minna-san, genki deska?
dibawah ini adalah contoh penggunaan struktur Case Of dalam bahasa pemrograman Pascal, hope this can help you guys.. :* :*

uses wincrt;

var
angka:char;
hari:string;

begin
write('Masukkan Inisialisasi hari : '); readln(angka);

case angka of
'1':hari:='Senin';
'2':hari:='Selasa';
'3':hari:='Rabu';
'4':hari:='Kamis';
'5':hari:='Jumat';
'6':hari:='Sabtu';
'7':hari:='Minggu'

else write('Tadi masukin angka berapa? Pikir dong!! ');
end;
writeln('Hari : ',hari);
end.

jika kita meng-inputkan angka 6 maka outputnya:
Hari : Sabtu

begitulah minna-san. it's easy isn't it?