PROCEDURE Average (Data  : ARRAY OF REAL;   Samples : CARDINAL) : REAL;

(*  Calculate the average over 'Samples' values, stored in array 'Data'.     *)

VAR     sum         : REAL;
        n           : CARDINAL;

BEGIN
  sum := 0.0;
  FOR n := 0 TO Samples - 1 DO
    sum := sum + Data [n]
  END;
  RETURN sum / FLOAT(Samples)
END Average;