Даны действительное число 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.