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