/* Se numeran los elementos leídos a partir de N */
contar(N):-
	read(Termino),
	mostrar(Termino,N).

mostrar(end_of_file,_):- !.

mostrar(Termino,N):-
	write(N),
	tab(2),
	write(Termino),
	nl,
	N1 is N + 1,
	contar(N1).
