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