PROGRAMME Seconde
VAR
	nsd, ns, nsr, nmo, nj, nh, nmi, ns : ENTIER
DEBUT
	ECRIRE("Entrer son nombre entier de secondes ")
	nsd <- LIRE()
	// Nombre d'annees contenues dans la duree fournie :
	na <- nsd DIV (3600 * 24 * 365)
	nsr <- nsd % (3600 * 24 * 365)
	// Nombre de mois restants :
	nmo <- nsr DIV (3600 * 24 * 30)
	nsr <- nsr % (3600 * 24 * 30)
	// Nombre de jours restants :
	nj <- nsr DIV (3600 * 24)
	nsr <- nsr % (3600 * 24)
	// Nombre d'heures restantes :
	nh <- nsr DIV 3600
	nsr <- nsr % 3600
	// Nombre de minutes restantes :
	nmi = nsr DIV 60
	nsr = nsr % 60
	
	ECRIRE("Nombre de secondes a convertir :", nsd)
	ECRIRE("Cette duree correspond a", na, "annees de 365 jours, plus")
	ECRIRE(nmo, "mois de 30 jours,")
	ECRIRE(nj, "jours,")
	ECRIRE(nh, "heures,")
	ECRIRE(nmi, "minutes et")
	ECRIRE(nsr, "secondes.")
FIN




