Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
<span>End Sub</span>
Цвет - яблоко
Вкус - малина
Скорость - машина
Длина - линейка
Материал - хлопок
Окрас - кот
Высота - дом
Вес - животное
Порода -кот
Пришел хороший мальчик.
Затихла бурная сирень.