Даны действительное число а и натуральное число n. Вычислить. Задача **...

Question

Даны действительное число а и натуральное число n. Вычислить. Задача на паскале!!
p=a(a+1)...(a+n-1)

n=3
p=a(a+1)*(a+2)

Answer 1

var
  a, p: real;
  n, i: integer;
begin
  p := 1;
  readln(a, n);
  for i := 0 to (n - 1) do
    p := p * (a + i);
  writeln(p);
end.