Program mention;
Var moy : Real;
me, dec : String;
Begin
Write ('Donner la moyenne annuelle : ');
Readln (moy);
If moy < 10 Then
Begin
dec := 'Redouble';
me := '';
End
Else
Begin
dec := 'Admis';
If moy < 12
Then me := 'Passable'
Else If moy < 14
Then me := 'Assez bien'
Else If moy < 16
Then me := 'Bien'
Else If moy < 18
Then
me := 'Très bien'
Else
me := 'Excellent' ;
End ;
Writeln ('Moyenne = ', moy,' Décision = ', dec,' Mention = ', me) ;
End.