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

// PascalABC.NET 3.0, сборка 1088begin  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