CLS

PRINT "Prg.Name: GOTOANW.Bas"
PRINT "Autor: Stephanie Heinrich"
PRINT "Datum: 16.12.02-4-12-03"

REM---Deklaration---
REM S = Summe von a
REM z = Variable zum Z„hlen der durchlaufenen Schleifen
REM MW = Mittelwert
REM a = Variable

REM---Verarbeitung---
s = 0
z = 0
CLS
PRINT "Berechnung des Mittelwerts aus mehreren Zahlen"
PRINT
NeueZahl:
INPUT "Bitte geben sie eine Zahl ein (Beenden mit 999):", a
IF a = 999 THEN
  PRINT
  PRINT "Z„hler z=", z
  PRINT " Summe s=", s
  PRINT "Mittelwert mw=", mw
ELSE
  z = z + 1
  s = s + a
  mw = s / z
  GOTO NeueZahl
END IF
END