Question

1. Даны действительные число аи натуральное число n. Вычислить
Р = а (а + 1)...(а + n -1)

Answer 1

var
  a, P: real;
  n, i: integer;

begin
  P := 1;
  readln(a, n);
  for i := 0 to n - 1 do
    P *= a + i;
  writeln(P);
end.