Написать программу вычисления произведений в Паскаль 2*4*6*…

Через рекурсию varfunction Product (N: Integer): Integer; beginif N=1thenbeginProduct: =2; Exit; end; Product: =2*N*Product (N — 1); end; varN: Integer; beginReadLn (N); WriteLn (Product (N); ReadLn; end. Без рекурсии N, Y, I: Integer; beginReadLn (N); Y: =1; I: =0; repeatInc (I); Y: =Y*2*I; until I=N; WriteLn (Y); ReadLn; end.