PASCAL ABC Даны натуральные числа х1, х2,…, xn. Определить произведение членов последовательности, являющихся нечетными числами.

var

 n,x,a: integer;

begin

 write('Введите количество в последовательности: ');

 read(n);

 a:= 1;

 while n <> 0 do

   begin

   readln(x);

   a:= x * a;

   n:= n-1

   end;

 writeln('Произведение членов последовательности: ',a)

end.