cubos:-
	nl,
	write('Siguiente número'),
	nl,
	write('(teclea <stop> para terminar'),
	nl,
	write('--> '),
	read(X),
	cubo(X).

cubo(stop):- !.

cubo(N):-
	C is N * N * N,
	nl,
	write('El cubo de '), write(N), write(' es '),
	write(C),
	nl,
	cubos.
