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

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