MODULE mittelwert; FROM InOut IMPORT WriteLn, WriteString; FROM RealInOut IMPORT ReadReal, WriteReal, Done; VAR sum, x : REAL; n: CARDINAL; BEGIN sum := 0.0; n := 0; WriteString("Naechste Zahl: "); ReadReal(x); WHILE Done DO sum := sum + x; INC(n); WriteString("Mittelwert = "); WriteReal(sum / FLOAT(n), 0); WriteLn; WriteString("Naechste Zahl: "); ReadReal(x); END; END mittelwert.