RosettaCodeData/Task/Averages-Arithmetic-mean/Modula-2/averages-arithmetic-mean-1.mod2

PROCEDURE  Avg;

VAR     avg             : REAL;

BEGIN
   avg := sx / n;
   InOut.WriteString ("Average = ");
   InOut.WriteReal (avg, 8, 2);
   InOut.WriteLn
END Avg;