Даны действительное число а и натуральное число n. Вычислить выражение a(a+1)...(a+n-1)

program a;
var a,p:real;
 i,n:integer;
begin;
readln(n);
readln(a);
p:=1;
for i:=0 to n-1 do
 p:=p*(a+i);
writeln(p);
end.

вот ,сори если не правильно давно не решал)))

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.