n = 30
DIM a(n)

' до n - 1 блеять
FOR i = 1 TO n - 1
  ' блоки отделяются
  a(i) = INT(RND * 100)
NEXT i