задача free pascal

[diablogold]

Помогите пожалуйста с задачей
нужно переделать эту задачу по этому условию:Найти произведение всех нечётных чисел по диапазону заданному пользователем.

[Toucan]

Тема перемещена в Карантин.

1. Для того чтобы вставить в сообщение исходный текст программы, пользуйтесь тегом syntax.

2. Приведите свои попытки решения задачи и объясните, что конкретно вызывает затруднения.

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.

________________
Всякий, кто поступил в университет, но не хочет сам учиться - враг своей страны, подрывающий ее научно-технический, интеллектуальный и оборонный потенциалы.
(c) по мотивам сообщения Yuri Gendelman.