Pascal - Program Konversi Nilai Ujian

program Konversi Nilai Ujian menggunakan Bahasa Pascal

program Konversi_Nilai_Ujian;
{Dibaca nilai ujian mahasiswa dalam angka, konversikan nilai tersebut kedalam
kategori nilai sebagai berikut : 80-100=A, 65-79=B, 55-64=C, 40-54=D, 0-40=E.
Kemudian tampilkan hasilnya ke layar }

(*DEKLARASI*)
var
        nilai:real;
        enter:char;

(*ALGORITMA*)
begin
writeln('Program Konversi Nilai');
writeln('       ');
write('Masukkan nilai ujian mahasiswa : ');
readln(nilai);

if (nilai >= 80) and (nilai <= 100) then
        writeln(' nilai anda adalah A')
else
   if(nilai>=65) and ( nilai<=79) then
        writeln(' nilai anda adalah B')
      else if(nilai>=55) and ( nilai <=64) then
                writeln('nilai anda adalah C')
                else
                   if(nilai>=40) and (nilai <=54) then
                        writeln('nilai anda adalah D')
                        else
                         writeln('nilai anda adalah E');
write('Tekan Enter untuk EXIT');
readln(enter);
end.


HASIL COMPILE :