Program Exercice02Q05;

Var 
    annee : Integer;

Begin
	WriteLn('Ce programme vérifie est ce qu''une année est bissextile');
	ReadLn(annee);
	
	{ La condition complexe peut être diviser sur deux 'If's }
	If((annee Mod 400 = 0) Or ((annee Mod 4 = 0) And (annee Mod 100 <> 0)))Then
	Begin
		WriteLn(annee, ' est bissextile');
	End
	Else
	Begin
		WriteLn(annee, ' n''est pas bissextile');
	End;
	
End.