Program Konversi Nilai Angka ke Nilai Huruf

Program ini untuk mengkonversikan nilai angka menjadi nilai huruf. Batas-batas nilai yang digunakan ini biasanya diterapkan di perguruan tinggi.

program menghitung_nilai;
uses wincrt;
var
a:integer;
begin
writeln('masukkan nilai!');
write('nilai angka = ');
readln(a);
case a of 81..100 : writeln ('nilai huruf = ','A');
 76..80 : writeln ('AB');
 71..75 : writeln ('B');
 61..70 : writeln ('BC');
 51..60 : writeln ('C');
 41..50 : writeln ('D');
 0..40 : writeln ('E');
else writeln ('input nilai salah');
end;
end.