Вот пример кода на Pascal, который вычисляет произведение всех нечетных чисел от 1 до n:

program ProductOfOddNumbers;
var
n, product, i: integer;
begin
write('Введите число n: ');
readln(n);
product := 1;
for i := 1 to n do
begin
if i mod 2 <> 0 then
product := product * i;
end;
writeln('Произведение нечетных чисел от 1 до ', n, ' равно ', product);
end.

В этом коде мы сначала запрашиваем у пользователя число n, затем инициализируем переменную product значением 1. Затем мы перебираем все числа от 1 до n и, если число нечетное (делится на 2 с остатком), умножаем его на текущее значение product. В конце программы выводим результат - произведение всех нечетных чисел от 1 до n.