PROGRAMME Annee_bissextile
VAR
	a : ENTIER
	bs : BOLEEN
DEBUT
	ECRIRE("Entrez une année")
	a <- LIRE()
	SI a MOD 4 != 0
	ALORS
		bs <- FAUX
	SINON
		SI a MOD 400 = 0:
		ALORS
			bs <- VRAI
		SINON
			SI a MOD 100 = 0
			ALORS
				bs <- FAUX
			SINON
				bs <- VRAI
			FINSI
		FINSI
	FINSI
	SI bs
	ALORS
		ECRIRE("Cette année est bissextile")
	SINON
		ECRIRE("Cette année n'est pas bissextile")
	FINSI
FIN