помогите составить программу, которая заполняет массив a [ 1..10] случайными целыми числами в диапозоне от 1 да 10 и вычесляет произведения элементов массива с нечетными значениями

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ  Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";ПЕР  a: РЯД 10 ИЗ ЦЕЛ;  сч: ЦЕЛ;  произведение: ЦЕЛ;УКАЗ  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1  КОН;  произведение := 1;  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП    ЕСЛИ НЕ ЧЕТ(a[сч]) ТО      произведение := произведение * a[сч]    КОН  КОНКОН Задание.