Составе программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 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