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

//Вычислите сумму S=m(m+1)(m+2)...n

PROGRAM 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.