Вычисление выражений с использованием функций

function один(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p*(1 + 1 / power(x, x)));
function два(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p*power(1 + 1 / x, x));
function три(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p*4*n/(n*2-1)/(n*2+1));
begin
  var n := ReadInteger;
  WriteLn('Y = ', один(n) + два(n) * три(n));
end.

function два(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p*power(1 + 1 / x, n - x + 1));

function три(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p*(ord(not odd(x))*x+ord(odd(x))*(x+1))/(ord(not odd(x))*(x+1)+ord(odd(x))*x);

function три(n : Integer) := Range(2,n,2).Aggregate(1.0,(p,x)->p*sqr(x)/Pred(x)/Succ(x));

function три(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p * (x + n div 2) / (x + (n + 1) div 2);

function три(n : Integer) := Range(1,n).Aggregate(1.0,(p,x)->p * (x + x mod 2) / (x + succ(x) mod 2);