Program Pascal : Konversi Nilai

program konversi_nilai;
{dibaca nilai ujian mahasiswa dalam nilai angka
kemudian tampilkan nilai hurufnya 80-100:A 65-79:B 55-64:C 40-54:D <40:E
}

var nilai : real;

begin
     writeln('');
     write('Masukan nilai ujian anda : ');
     read(nilai);

     if ( nilai <= 100 ) and ( nilai >= 80 ) then
     begin
          write('Nilai anda A');
     end
     else if ( nilai < 80 ) and ( nilai >= 65 ) then
     begin
          write('Nilai anda B');
     end
     else if ( nilai < 65 ) and ( nilai >= 55 ) then
     begin
          write('Nilai anda C');
     end
     else if ( nilai < 55 ) and ( nilai >= 40 ) then
     begin
          write('Nilai anda D');
     end
     else if ( nilai < 40 ) and ( nilai >= 0 ) then
     begin
          write('Nilai anda A');
     end;

end.

Hasil Program