На вход программе подается последовательность натуральных чисел оканчивающихся на 0 найти максимальное количество нечетных элементов

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Writeln(ReadSeqIntegerWhile(t -> t<>0).where(t -> t.isOdd).Count);
end.

Пример:
1 2 3 4 5 0
3