Pascal - Pemanfaatan Case dalam memberi nilai

Perkuliahan tanggal 2/01/2014, didapat tugas menampilkan nama nim dan grade nilai yang sesuai dengan ketentuan yang telah dituliskan di papan tulis. Untuk referensi dan bahan belajar di rumah dan UAS yang akan dimulai tanggal 27/01/2014.

Berikut code yang ditulis:

program nilai;
uses wincrt;

var
a,b:string;
c:byte;

begin
write('Masukan Nama   : ');readln(a);
write('Masukan NIM    : ');readln(b);
write('Masukan Nilai  : ');readln(c);

writeln('=============================');
writeln('     Data Mahasiswa          ');
writeln('=============================');
writeln('Nama    : ',a);
writeln('NIM     : ',b);
writeln('Nilai   : ',c);

case c of
0..45:writeln('Grade   : E');
46..70:writeln('Grade   : D');
71..80:writeln('Grade   : C');
81..90:writeln('Grade   : B');
91..100:writeln('Grade   : A');
end;

end.