С клавиатуры вводятся последовательно из 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.