Даны действительное число а и натуральное число n. Вычислить выражение a (a+1) ... (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.