Паскаль: напишіть програму обчислення добутку а(а+1)(а++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.