S=m*(m+1)(m+2)...(m+n) M,n натуральные , найти S

Question

S=m*(m+1)(m+2)...(m+n) M,n натуральные , найти S

Answer 1

Var m,n,s,i: integer;
begin
  readln(m,n);
  s := 1;
  for i:=0 to n
    s := s * (m + i);
  writeln(s)
end.