Contoh program nilai pada Prolog

score:-nl,
write('*****************'),nl,
write('Masukkan Nama  : '),read(Nama),
write('Masukkan NPM   : '),read(NPM),
write('Masukkan Kelas : '),read(Kelas),nl,
write('*****************'),nl,
write('Masukkan Nama Adalah :'),write(Nama),nl,
write('Masukkan NPM Adalah  :'),write(NPM),nl,
write('Masukkan Kelas Adalah:'),write(Kelas),nl,
write('Masukkan Nilai UTS   :'),read(A),
write('Masukkan Nilai UAS   :'),read(N),
write('*****************'),nl,
T is A * 0.70 + N * 0.30,
(T>=90,write('Grade A');
T>=70,write('Grade B');
T>=50,write('Grade C');
T>=20,write('Grade D');
T>=0,write('Grade E')).

Hasil Outputnya :

*****************
Masukkan Nama  : novia.
Masukkan NPM   : 13109457.
Masukkan Kelas : ka25.

*****************
Masukkan Nama Adalah :novia
Masukkan NPM Adalah  :13109457
Masukkan Kelas Adalah:ka25
Masukkan Nilai UTS   :90.
Masukkan Nilai UAS   :85.
*****************
Grade B
true