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.
UHJvZ3JhbSBtZW50aW9uOwpWYXIgbW95IDogUmVhbDsKbWUsIGRlYyA6IFN0cmluZzsKQmVnaW4KV3JpdGUgKCdEb25uZXIgbGEgbW95ZW5uZSBhbm51ZWxsZSA6ICcpOwpSZWFkbG4gKG1veSk7CklmIG1veSA8IDEwIFRoZW4KQmVnaW4KZGVjIDo9ICdSZWRvdWJsZSc7Cm1lIDo9ICcnOwpFbmQKRWxzZQpCZWdpbgpkZWMgOj0gJ0FkbWlzJzsKSWYgbW95IDwgMTIKVGhlbiBtZSA6PSAnUGFzc2FibGUnCkVsc2UgSWYgbW95IDwgMTQKVGhlbiBtZSA6PSAnQXNzZXogYmllbicKRWxzZSBJZiBtb3kgPCAxNgpUaGVuIG1lIDo9ICdCaWVuJwpFbHNlIElmIG1veSA8IDE4ClRoZW4KbWUgOj0gJ1Ryw6hzIGJpZW4nCkVsc2UKbWUgOj0gJ0V4Y2VsbGVudCcgOwpFbmQgOwpXcml0ZWxuICgnTW95ZW5uZSA9ICcsIG1veSwnIETDqWNpc2lvbiA9ICcsIGRlYywnIE1lbnRpb24gPSAnLCBtZSkgOwpFbmQu