Program Moy_Notes;
Var i, n : Integer;
note, s : Real;
Begin
Writeln ('Combien de notes : ');
Readln (n);
s:=0;
For i:=1 To n Do 
Begin
Writeln ('Note ', i, ' : ');
Readln (note);
s := s+note; 
End;
Writeln ('Moyenne de ces ', n, ' notes : ', s/n:2:2);
End.