Программа:
var
n, i, s, j, k: integer;
begin
write('Количество элементов в последовательности: '); readln(n);
s := 1;
for i := 1 to n do begin
read(j);
if j mod 2 = 1 then begin
s := s * j;
inc(k);
end;
end;
if k = 1 then writeln('1') else writeln(s);
end.
