С клавиатуры вводятся последовательно из k целых чисел вычислить произведение нечетных членов последовательности

var

a, i : integer; / / объявляем переменные целочисленного типа.

begin

i : = 1; / / нужно, чтобы при подсчете произведения не умножать на ноль.

a : = 1;

writeln ('введите последовательность положительных чисел, окончание ввода - число 0:');

while a 0 do / / начало цикла.

begin

readln (a); / / считываем число, введенное с клавиатуры.

if (a mod 2 > 0) then / / если число нечетное, то считаем произведение.

i : = i * a;

end;

write ('Произведение нечетных чисел равно: ', i); / /вывод ответа на экран.

end.