Contoh program pascal Case of

Program nilai_ujian;
uses crt;
var nama :string[25];
nim :string[20];
nilai_angka:integer;
nilai_huruf:char;
predikat :string[30];
begin
clrscr;
writeln(' Program Pemberian Nilai');
writeln;
write('Masukkan Nama Mahasiswa: ');readln(nama);
write('Masukkan Nim : ');readln(nim);
write('Masukkan Nilai Angka : ');readln(nilai_angka);
writeln;