CLS

DIM s(99) AS INTEGER, k(99) AS INTEGER

DIM i AS INTEGER, n AS INTEGER, sh AS INTEGER, ball AS INTEGER

DIM avg AS INTEGER, m AS INTEGER



FOR i = 1 TO 99

        s(i) = 0

        k(i) = 0

NEXT i

INPUT n

FOR i = 1 TO n

        INPUT tmp$

        tmp$ = tmp$ + " "

        sh = 0

        ball = 0

        j = 1

        quit = 0

        WHILE quit = 0

                IF j = LEN(tmp$) THEN

                        quit = 1

                END IF

                IF MID$(tmp$, j, 1) = " " THEN

                        IF sh = 0 THEN

                                sh = VAL(LEFT$(tmp$, j - 1))

                        ELSE

                                ball = VAL(LEFT$(tmp$, j - 1))

                        END IF

                        tmp$ = RIGHT$(tmp$, LEN(tmp$) - j)

                        j = 1

                END IF

                j = j + 1

        WEND

        s(sh) = s(sh) + ball

        k(sh) = k(sh) + 1

NEXT i

avg = 0

FOR i = 1 TO 99

        IF k(i) > 0 THEN

                avg = avg + s(i)

                s(i) = s(i) \ k(i)

        END IF

NEXT i

avg = avg \ n

m = 0

FOR i = 1 TO 99

        IF s(i) > avg THEN

                m = m + 1

                ball = s(i)

                PRINT i

        END IF

NEXT i

IF m = 1 THEN

        PRINT "Average mark: ", ball

END IF