Программирование на Pascal

Function P(n,nmax:Integer):Integer;
begin
result:=1;
if n<=nmax then
result:=2*n*P(n+1,nmax);
end;

Пример использования:
Writeln(P(1,5)); - здесь будут вычисляться выражение c n от 1 до 5, т. е.: P=2*4*6*8*10

function f(N:integer):int64; begin if N=1 then f:=2 else f:=2*N*f(N-1) end;