Факториал числа

[Kazik]

Нужно посчитать факториал 2n (цикл repeat, n увеличивается на 1)
помогите плиз

[whatever]

n увеличивается на 1

Глупое условие.

var
  n,n2:integer;
  res:longint;
begin
  readln(n);
  n2:=2*n;
  n:=2;
  res:=1;
  repeat
    res:=res*n;
    inc(n);
  until n>n2;
  writeln(res);
end.

Если без него, то так:

var
  n:integer;
  res:longint;
begin
  readln(n);
  n:=2*n;
  res:=1;
  repeat
    res:=res*n;
    dec(n);
  until n=1;
  writeln(res);
end.