Calculadora Edad

DIM cmayo, cmeno, sumayo, sumeno, promayo, promeno, i, n, edad AS INTEGER
PRINT "Cuantas personas desea analizar?"
INPUT n
PRINT "Comienze a introducir los datos uno por uno seguido de Enter"
i = 1
cmayo = 0
cmeno = 0

FOR i = 1 TO n
    INPUT edad
    IF edad >= 18 THEN
        cmayo = cmayo + 1
        sumayo = edad + sumayo
    ELSE
        cmeno = cmeno + 1
        sumeno = edad + sumeno
    END IF
NEXT
promayo = sumayo / cmayo
promeno = sumeno / cmeno
PRINT "Estos son los resultados "
PRINT "Hay "; cmeno; "Menores de edad"
PRINT "El promedio de los menores es"; promeno;
PRINT ""
PRINT "Hay "; cmayo; "Mayores de edad"
PRINT "El promedio de los mayores de edad es"; promayo;