Program Exercice03Q02;

Var 
    note : Real;

Begin
	WriteLn('Ce programme détermine la mention équivalente à une note');
	WriteLn('Veuillez introduire la note');
	REadLn(note);
	
	If((note < 0) Or (note > 20))Then
		WriteLn('Note invalide')
	Else If(note < 10)Then
		WriteLn('Faible')
	Else If(note < 12)Then
		WriteLn('Moyen')
	Else If(note < 14)Then
		WriteLn('Assez Bien')
	Else If(note < 16)Then
		WriteLn('Bien')
	Else { Ce n'est pas nécessaire de mettre une condition, 
		   Il reste une seule possibilité (16 <= note <= 20) }
		WriteLn('Très Bien');
	
	
End.