DATA fio1, fio2, fio3, fio4, fio5, fio6, fio7, fio8, fio9, fio10
  DIM a(10)
  RANDOMIZE (TIMER)
  CLS
  FOR i = 1 TO 10
  a(i) = INT(RND(1) * 10000)
  READ fio$(i)
  s = s + a(i)
  IF a(i) > 5000 AND a(i) < 8000 THEN K = K + 1
  NEXT
  FOR i = 1 TO 10
  PRINT i, fio$(i), a(i)
  NEXT
  PRINT "summa="; s
  PRINT "==ot 5000 do 8000=="; K

OPEN "c:\output.txt" FOR OUTPUT AS #2
 FOR i = 1 TO 10
  PRINT #2, fio$(i), a(i)
 NEXT
  PRINT #2, "Summa=", s
  PRINT #2, "ot 5000 do 8000", K
  CLOSE #2
END