program moyenne ; {En-tête}
var {Déclarations}
donnee, somme, moyenne : real;
i, n : integer ;
begin {début du bloc d'instructions}
writeln('entrer le nombre de données');
readln(n);
if n > 0 then
begin
somme := 0;
for i := 1 to n do
begin
read(donnee);
somme := somme + donnee;
end;
moyenne := somme / n;
writeln('moyenne =',moyenne);
end
else
writeln('pas de donnees');
end. { fin du bloc d'instructions}