Написать программу вычисления произведений  в Паскаль 2*4*6*...*(2n).ПОМОГИТЕ ПЛИЗЗЗ решить срочно 

через рекурсию   var function Product(N: Integer): Integer; begin if N = 1then begin Product := 2; Exit; end; Product := 2 * N * Product(N - 1); end;     var N: Integer; begin ReadLn(N); WriteLn(Product(N)); ReadLn; end.   без рекурсии   N, Y, I: Integer;   begin ReadLn(N); Y := 1; I := 0; repeat Inc(I); Y := Y * 2 * I; until I = N; WriteLn(Y); ReadLn; end.

var N, Y, I: Integer; begin   ReadLn(N); Y := 1; I := 0;   repeat     Inc(I);     Y := Y * 2 * I;   until I = N;   WriteLn(Y);   ReadLn; end.