Ответы и объяснения

Лучший Ответ!
2014-02-26T15:39:00+04:00
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.