//โปรแกรมอ่านข้อมูลพิมพ์แบบสรุปว่าแต่ละปี มีพนักงานรับเงินเดือนรวมเท่าใด
for n = 2000 to year(date())
use empl
tsalary = 0
while !eof()
tsalary = tsalary + (emplsal * 12)
skip
end
? n,tsalary
next