Даны действительное число A, натуральное число N. Вычислить: P=A(A+1)x...x(A+n-1) напить в Паскале, как вычислить)

program zz1;

var n, i:integer; // задаем переменные целого типа

a, p:real;// задаем переменные не целого типа

begin

write(\' введите натуральное число n\');

read(n);  // вводим с клавиатуры целое число

write(\' введите действительное число A\');

read(A);  // вводим с клавиатуры не целое число

p:=1; // задаем начальное значение для произведения

for i:=0 to n-1 do // организуем цикл на n повторений

p:=p * (a + i); // рассчитываем ответ по заданной формуле

write(\' полученное значение выражения = \', p); // выводим ответ

end.