14 - dar numero e ver o mes

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

mes():-
	write('digite um numero de 1 a 12!'),
	read(N),
	numero(N).
numero(M):-
	M == 1,
	write('numero 1 corresponde a janeiro'),!.
numero(M):-
	M == 2,
	write('numero 2 corresponde a fevereiro'),!.
numero(M):-
	M == 3,
	write('numero 3 corresponde a março'),!.
numero(M):-
	M == 4,
	write('numero 4 corresponde a abril'),!.
numero(M):-
	M == 5,
	write('numero 5 corresponde a maio'),!.
numero(M):-
	M == 6,
	write('numero 6 corresponde a junho'),!.
numero(M):-
	M == 7,
	write('numero 7 corresponde a julho'),!.
numero(M):-
	M == 8,
	write('numero 8 corresponde a agosto'),!.
numero(M):-
	M == 9,
	write('numero 9 corresponde a setembro'),!.
numero(M):-
	M == 10,
	write('numero 10 corresponde a outubro'),!.
numero(M):-
	M == 11,
	write('numero 11 corresponde a novembro'),!.
numero(M):-
	M == 12,
	write('numero 12 corresponde a dezembro'),!.
numero(M):-
	M > 12,
	write('numero sem correspondencia'),!.