Listing Input Nama dan NPM Menggunakan Prolog

score:-nl,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')).

OUTPUT :

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

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