(PASCAL) --> NILAI AKHIR UJIAN

Program Nilai_Akhir_Ujian;
uses wincrt;
var nilai : integer;
    nama : string;
    NIM :real;

begin
writeln ('       NILAI AKHIR UJIAN  ');
writeln;
write ('Nama Mahasiswa          = '); readln(nama);
write ('NIM                     = '); readln(NIM);
write ('Nilai Yang Didapat      = '); readln (nilai);
write ('Nilai Yang Diberikan    = ');
if nilai > 80 then
write ('A');
if (nilai <=80) and (nilai >= 60) then
write ('B');
if nilai< 60 then
write ('C');
end.