15 - lista 01 - dia_mes_ano

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

data:-
	write('digite um data tipo: ddmmaaaa'),nl,
	read(D),
	Dia is D div 1000000,
	M is D mod 1000000,
	Mes is M div 10000,
	A is M mod 10000,
	write('dia = ':Dia),nl,
	write('mes = ':Mes),nl,
	write('ano = ':A).