Question

с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 требуется найти произведение нечетных чисел из введенной последовательности

Answer 1

Var
   A:integer;
   P:real;
Begin
P:=1;
Repeat
Read(A);
if A mod 2 <> 0 then P:=P*A;
Until A=0;
WriteLn('Произведение нечётных чисел: ',P);
End.