Question

Помогите найти произведение чисел k*(k+1)*(k+2)*...*2k в turbo pascal!!!!!!!!!!!!!!!!

Answer 1

var
  prod, i, k: integer;

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