Написать программу для вычисления выражения P=m*(m+1)*(m+2)*(m+3).*(m+n), где m и n некоторые числа.

Вычислим программу для вычисления выражения P=m×(m+1)×(m+2)×(m+3)×(m+n)

--------------------------------------------------------------------------------------

PROGRAM А1;

VAR n,m:byte;

j:byte;

prd:real;

BEGIN

writeln('Вычисление суммы P=m×(m+1)×(m+2)×(m+3)×(m+n)...');

write('Введите n (1<n<30) : '); readln (n);

wright ('Введите 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.