Дана последовательность из n вещественных чисел. первое число в последовательности нечетное. найти сумму всех идущих подряд в начале последовательности нечетных чисел. условный оператор не использовать.

//pascalabc.net //переменная m - множитель, когда встретится // четное число, m станет равным нулю begin   var n : = readinteger('n =');   var m : = 1;   var sum : = 0;   for var i : = 1 to n do   begin     var number : = readinteger;     m *= number mod 2;     count += m * number   end;   write(sum) end.