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

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

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.