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

это не то

В каком смысле?

нужно полную программу со всем этим Program, begin

Это и есть полная программа.

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