Паскаль:    Напишіть програму обчислення добутку а(а+1)(а+2)....(а+n-1)

program Zd;var  a, n, I, res: Integer;begin  WriteLn('Input the a: ');  Read(a);  WriteLn('Input the n: ');  Read(n);  res:=a;  for i:=1 to n - 1 do    res:=res * (a + i);  WriteLn('Результат: ', res);end.