loopb(B),nl,
C is A-1,
D is B+1,
loopa(C,D);
A=0,nl).

loopb(D):-
(D>0, write('*'),
B is D-1,
loopb(B);
D=0,write("")).

perulangan:-
write('=====Perulangan====='),nl,
write('Jumlah perulangan : '),read(A),loopa(A,1).

aritmatika:-
write('=====Aritmatika====='),nl,
write('masukan sisi kubus : '),read(S),nl,
V is S * S * S,
write('Volume :'),write(V).

kondisi:-
write('=====Aritmatika====='),nl,
write('Jumlah masukan nilai anda : '),read(N),nl,
    (   N>=70->write('Selamat anda lulus'),nl;
    write('Anda tidak lulus')),nl.