Question

Напишите программы на PascalABC.Net
Задача №2:
Напишите программу, которая в последовательности натуральных чисел определяет минимальное значение четных чисел, которые больше 100. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 200. Введённые числа не превышают 300. Программа должна вывести одно число: минимальное из четных чисел, которые больше 100.
Например: 23 108 121 148 34 0 ==> 108

Answer 1

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Where(p -> p.IsEven and (p > 100))

   .Min

   .Println

end.