Вмассиве, состоящем из 20 элементов( значения заданы случайным образом). найти все элементы, кратные 3 и 5. сколько их? решить в программе pascal abs

Sub love01()
Dim a(999) As Integer, Count35 As Integer
For i = 0 To 999
a(i) = Int(Rnd * 1000)
Count35 = Count35 - ((a(i) Mod 3 = 0) or(a(i) Mod 5 = 0))
Next
MsgBox Count35
End Sub
т.е. 8 элементов)