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

Program Funct1;

Uses Crt;

var a, rez:real;

i, n:integer;

begin

clrscr;

write ('Введите а: ') ;

readln (a) ;

write ('Введите n: ') ;

readln (a) ;

rez:=a;

for i:=1 to n-1 do rez:=rez * (a+i) ;

writeln ('Произведение ряда: ', rez:5:5) ;

readkey;

end.