Расставьте между цифрами знаки арифметических дейст-
вий (+, -, х, :) и, если надо, скобки так, чтобы ответ ока-
зался равным 1.

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('Сумма четных: ',Range(2,n,2).Sum);
  Writeln('Произведение нечетных: ',
      Range(1,n,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Примеры
n= 10
Сумма четных: 30
Произведение нечетных: 945

n= 100
Сумма четных: 2550
Произведение нечетных: 2725392139750729502980713245400918633290796330545803413734328823443106201171875

n= 220
Сумма четных: 12210
Произведение нечетных: 1107777077219218863731176870556049213277080310011307546922058816496685355705579762805879646585202270946781726057710274499420058851200005273702334889222745707797723907366146060509882690145022444427013397216796875

Вот программа с елкой: 
Uses GraphABC; 
Begin 
SetWindowSize(600,400); 
line(250,100, 300,50); 
lineto(350,100); 
lineto(250,100); 
floodfill(300,70, clgreen); 
line(220,200, 300,100); 
lineto(380,200); 
lineto(220,200); 
floodfill(300,150, clgreen); 
line(200,300, 300,200); 
lineto(400,300); 
lineto(200,300); 
floodfill(300,250, clgreen); 
rectangle(290, 300,310, 320); 
floodfill(300,305, clbrown); 
line(0, 300, 100, 350); 
lineto(200, 320); 
lineto(400, 320); 
lineto(600, 370); 
lineto(600,400); 
lineto(0,400); 
lineto(0,300); 
end.