Flow Chart To Program Qbasic coding part -12

 

Read n$, m1, m2, m3, m4

While m1 <> -1

    m5 = (m1 + m2 + m3 ) / 4

    t3 = t2 + m3

    t4 = t4 + m4

    If m5 < 80 Then

        s$ = "credit"

    Else

        s$ = "excellent"

    End If

    Print s$

    Read n$, m1, m2, m3, m4

Wend

Print t1 / 2, t3 / 4, t4 / 5

Data "nader",81,83,80,84

Data "aseal",80,70,76,74

Data "yousuf",60,70,65,65

Data "end",-1,-1,-1