Program Sederhana Prolog

Segitiga
program:-nl,
 write('Masukkan Alas : '),read(Alas),
 write('Masukkan Tinggi : '),read(Tinggi),
 Luas is (Alas*Tinggi)/2,
 write('Luas : '),write(Luas).


Grade Nilai 
 program:-nl,
 write('Masukkan Nilai Uts : '),read(Uts),
 write('Masukkan Nilai Uas : '),read(Uas),
 Total is (Uts+Uas)/2,
 write('Total : '),write(Total),nl,
 (
 Total > 95 -> write('A');
 Total > 75 -> write('B');
 Total > 60 -> write('C');
 Total > 45 -> write('D');
 write('E')
 ).