Составе программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10

// PascalABC.NET 3.0, сборка 1088 begin   Writeln('Сумма четных от 1 до 10 равна ',     Range(2,10,2).Sum);   Writeln('Произведение нечетных от 1 до 10 равно ',     Range(1,10,2).Aggregate((x,y)->x*y)) end. Результат выполнения программы: Сумма четных от 1 до 10 равна 30 Произведение нечетных от 1 до 10 равно 945