Rumus Program Pascal Menghitung Nilai Mahasiswa - GLOBAL KOMPUTER TELUK KUANTAN

Berikut rumus membuat program pascal menghitung nilai mahasiswa :

Program Menghitung_Nilai_Mahasiswa;
uses crt;
var
   nilai : integer;
   grade : char;
begin
   write('Masukkan nilai angka : '); readln(nilai);
   if nilai >= 85 then
      grade := 'A'
   else
      if nilai >= 70 then
         grade := 'B'
      else
         if nilai >= 60 then
            grade := 'C'
         else
            if nilai >= 50 then
               grade := 'D'
            else
               grade := 'E';
   writeln('Grade Nilai Anda adalah ', grade);
end.

Semoga bermanfaat, jangan lupa comment nya juga.?
Trima Kasih.