Дано действительное число a и натуральное число n. Вычислить: ...

Настя

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.