CLS
DEFSNG A-D
PRINT "Szmtani,mrtani,harmonikus kzp"
b = 1
beker: SOUND 4000, .3: INPUT "Szm"; a
IF n = 0 AND a <= 0 THEN PRINT "Nincs elg adat!": SOUND 3000, 1: GOTO beker
IF a <= 0 THEN GOTO kiir
b = b ^ (n / (n + 1)) * a ^ (1 / (n + 1)): c = c + 1 / a: d = d + a: n = n + 1
GOTO beker
kiir:
PRINT "Biztos? (i)"
ss: a$ = INKEY$: IF a$ = "" THEN GOTO ss
IF a$ <> "i" AND a$ <> "I" THEN GOTO beker
PRINT " "
PRINT "Tagok szma:"; n
PRINT "Szmtani kzp:"; d / n
PRINT "Mrtani kzp:"; b
PRINT "Harmonikus kzp:"; n / c

