Public siCount As Short[] = [0, 0, 0, 0, 0]
Public siSorted As Short[] = [0, 0, 0, 0, 0]

Public Sub form_Open()

Timer1.delay = 3000
Timer1.start

End


Public Sub Timer1_Timer()
Dim siRand As Short = Rnd(0, 100)
Dim siCounter, siAvg As Short


siCount.Remove(0, 1)
siCount.add(siRand)
siSorted = siCount.Copy().Sort()

siSorted.Remove(0, 1)
siSorted.Remove(3, 1)

For siCounter = 0 To 2
  Print siSorted[siCounter]
Next

siAvg = (siSorted[0] + siSorted[1] + siSorted[2]) / 3

End