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