С клавиатуры вводятся последовательно из k целых чисел вычислить произведение нечетных членов последовательности

Var  I,K,P,x:integer;
begin
writeln(введите количество чисел);
readln(k);
P:=1;
for I:=1 to k do begin
  writeln(введите число);
  readln(x);
  if (x mod 2)<>0 then P:=P*x;
  end;
  writeln(произведение нечётных членов =,P);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.