На языке Bacik! Заполните одномерный массив B(8) целыми случайными числами из промежутка (12;20). Найдите сумму этих чисел

Реализация на VBA ExcellЕсли есть офис, то можете запустить программу.Код увидеть Alt+F11Sub massiv()    строка = 3 'не обязательно,номер строки для начала вывода на лист    n = Cells(2, 3) 'не обязательно, вводим количество чисел    Dim B(10000) As Integer 'резервируем память на 10000 целых чисел    S = 0 'обнуляем сумму    For i = 1 To n 'Начало цикла           k = Rnd(1) 'Генерируем случайное число в диапазоне (0;1)           k = k * 9 + 12 'Смещаем его в диапазон [12;20]           k = Int(k) 'обрезаем, оставляя целое          B(i) = k 'заполняем массив           S = S + k 'считаем сумму           Cells(строка, 3) = строка - 2 'не обязательно, вывод номера значеня                 Cells(строка, 4) = k 'Не обязательно вывод значения           строка = строка + 1 'не обязательно, увеличить строку для вывода   Next i 'Конец цикла    Cells(строка, 3) = "сумма =" 'не обязательно, выводим надпись    Cells(строка, 4) = S 'не обязательно, выводим суммуEnd Sub