Составить программу, в которой описывается массив переменных, состоящий из 15 целых чисел, инициализируется массив вводом с клавиатуры, выводятся элементы массива экран через пробел. для полученного массива найти сумму всех четных элементов и произведение элементов, меньших 10.
begin
var a := ReadArrInteger('Вводи:', 15);
a.Println;
Println('Сумма четных:', a.Where(p -> p.IsEven).Sum);
Println('Произведение меньших 9:', a.Where(p -> p < 10).
Aggregate(real(1), (p, q) -> p * q))
end.