qbasic solve

READ n$, m1, m2, m3
WHILE n$ <> "end"
    m4 = (m1 + m2 + m3) / 3
    t1 = t1 + m1
    t2 = t2 + m2
    t3 = t3 + m3
    IF m4 <= 50 THEN
        S$ = "fail"
    ELSE IF m4 < 70 THEN
            S$ = "pass"
        ELSE
            S$ = "credit"
        END IF
    END IF
    PRINT n$, m4, S$
    READ n$, m1, m2, m3
WEND
PRINT "math", "bang", "eng"
PRINT t1, t2, t3
END


DATA "nader",60,40,47
DATA "amirah",70,60,50
DATA "aseal",80,73,60
DATA "end",-1,-1,-1