Contoh Program Nilai Menggunakan Turbo Pascal

program NILAI;
uses wincrt;
var
Nama : char;
N,NIS :integer; p : string ;
begin
clrscr;
write ('Masukan Nama Siswa      :');
readln (Nama);
write ('NIS  :');
readln (NIS);
Write ('Masukan Nilai   :');
readln (N);
case N of
90..100 :p:= 'sangat memuaskan';
80..89 :p:='memuaskan';
70..79 :p:='cukup';
10..69 :p:= 'kurang';
end;
writeln ('Predikat Anda adalah  :',P);
readln;
end.