1. даны действительные число аи натуральное число n. вычислить р = а (а + + n -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.