Вот программа на языке Pascal, которая находит произведение всех нечётных чисел в диапазоне от 1 до 10: program ProductOfOddNumbers; var i: integer; product: integer; begin product := 1; for i := 1 to 10 do if i mod 2 = 1 then product := product * i; writeln('Произведение нечётных чисел: ', product); end. В этой программе мы используем цикл for для перебора чисел от 1 до 10 и проверяем, является ли число нечётным (mod 2 = 1). Если условие выполняется, то текущее значение произведения умножается на текущее число. В конце программы выводится результат — произведение всех нечётных чисел в указанном диапазоне.