//โปรแกรมอ่านข้อมูลมาพิมพ์ นับแยกเกรด
use score
suma = 0
sumb = 0
sumc = 0
sumd = 0
sumf = 0
while !eof()
   tscore = keep + mid + fin
   if tscore >= 80
    suma++
   elseif tscore >= 70
    sumb++
   elseif tscore >= 60
    sumc++
   elseif tscore >= 50
    sumd++
   else
    sumf++ endif skip
end
? "A:",suma
? "B:",sumb
? "C:",sumc
? "D:",sumd
? "F:",sumf