Program Exercice01Q02;

Var
	note_initiale, bonus, note_finale : Real;

Begin
	
	WriteLn('Veuillez introduire la note initiale :');
	Read(note_initiale);
	
	WriteLn('Veuillez introduire le bonus :');
	Read(bonus);
	
	note_finale := note_initiale + bonus;
	
	If(note_finale > 20)Then
	Begin
		note_finale := 20;
	End;
	
	WriteLn('La note finale est : ', note_finale:2:2);
	
	
End.