hitung:-
write("UAS: "),read(Uas),
write("UTS: "),read(Uts),
write("Tugas: "),read(Tugas),
write("Presensi: "),read(Presensi),
Nilai is ((Uas*40)+(Uts*30)+(Tugas*20)+(Presensi*10))/100,
write(Nilai),nl,
( Nilai >= 80,write("Grade A");
Nilai >= 65,write("Grade B");
Nilai >= 55,write("Grade C");
Nilai >= 40,write("Grade D");
write("Grade E")
)
.