Contoh Program Penggunaan Case Sederhana >> Membuat Rentang Nilai Ujian

Program contoh_case;
uses wincrt;
var
nilai:integer;
begin
     readln(nilai);
     case nilai of
     0..40:writeln('E');
     41..55:writeln('D');
     56..65:writeln('C');
     66..80:writeln('B');
     81..100:writeln('A');
     else
     writeln('tidak dalam range');
     end;
     readln;
end.