//โปรแกรมอ่านข้อมูลพิมพ์แบบสรุปว่าแต่ละเพศ มีพนักงานรับเงินเดือนเฉลี่ยเท่าใด
use empl
ee = array(reccount())
uu = array(reccount())
nu = array(reccount())
n= 1
for i = 1 to reccount()
   if ascan(ee,emplsex) = 0
   ee[n] = emplsex
   uu[n] = emplsal
   nu[n] = 1
   n++
   else
   for j = 1 to n - 1
   if (ee[j] = emplsex)
   uu[j] = uu[j] + emplsal
   nu[j]++
   endif
   next
   endif
   skip
next
for i = 1 to n - 1
   @ i,5 say ee[i]
   @ i,25 say uu[i] / nu[i]
next