Найти произведение чисел k*(k+1)*(k+2)**2k в turbo

Var
  prod, i, k: integer;

begin
  prod := 1;
  readln(k);
  for i := k to 2 * k do
    prod := prod * i;
  writeln(prod)
end.