Code source

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}