Question

С клавиатуры вводятся три числа.Найти и вывести на экран среднее арифметическое четных чисел.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(3).Where(x->x.IsEven).Average);
end.