//โปรแกรมอ่านข้อมูลมาพิมพ์ หาชื่อ และเงินเดือนต่ำสุดของพนักงาน
use empl
n = 9999.99
while !eof()
if emplsal < n
   n = emplsal
endif
skip
end
locate for emplsal = n
   ? empl,emplname,emplsal