СРОЧНО!!!! Напишите программу, которая в последовательности целых чисел определяет...

Question

СРОЧНО!!!!
Напишите программу, которая в последовательности целых чисел определяет значение наибольшего числа из всех нечетных введенных чисел. Программа получает на вход целые положительные числа, количество введённых чисел неизвестно. Последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность).
Количество введённых чисел не превышает 1000. Все числа не превосходят 30000. Среди введённых чисел есть хотя бы одно нечётное.
Программа должна вывести одно число: наибольшее из всех нечётных введённых чисел.
Пример работы программы:
Входные данные: 15, 20, 17, 0
Выходные данные: 17

Answer 1

// PascalABC.NET 3.3

begin
var a:=ReadSeqIntegerWhile('Введите последовательность чисел: ',x->x<>0);
writeln(a.Where(x->x mod 2<>0).Max);
end.

Пример:
Введите последовательность чисел:  15 20 17 0
17