From the keyboard are entered sequentially from k integers to calculate the product of odd members of the sequence.

var
a, i: integer; // declare variables of integer type.
begin
i: = 1; // it is necessary not to multiply by zero when calculating the product.
a: = 1;
writeln (‘enter a sequence of positive numbers, the end of the entry is the number 0:’);
while a <> 0 do // start of the loop.
begin
readln (a); // read the number entered from the keyboard.
if (a mod 2> 0) then // if the number is odd, then count the product.
i: = i * a;
end;
write (‘The product of odd numbers is:’, i); // display the answer to the screen.
end.