через рекурсию

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.