Написать программу, которая в последовательности целых чисел вычисляет произведение трехзначных четных чисел, оканчивающихся на 2. Признаком окончания ввода чисел является ноль.

PascalABC.NET

begin

 var sqnc := ReadSeqIntegerWhile(x -> x <> 0);

 sqnc.Where(x -> (x >= 100) and (x < 1000) and (x mod 10 = 2) and (x mod 2 = 0))

   .Aggregate(Biginteger.One, (p, q) -> p * q).Println;

end.

Объяснение: