Вычислить S=m(m+1)(m+2)...n, где m и n натуральные числа m

//Вычислите сумму S=m(m+1)(m+2)...nPROGRAM B13;VAR n,m:byte; j:byte; prd:real;BEGIN writeln('Вычисление суммы S=m(m+1)(m+2)...'); write('Введите n (1 write('Введите m: '); readln(m); writeln(''); prd:=1; for j:=0 to n-1 do begin write('(', (m+j),')*' ); prd:=prd * (m+j); end; writeln(''); writeln('Ответ: ',prd);END.