Написать программу вычисления произведений a*(a+1)*(a+2)*…*(a+n)-1 — Pascal(Паскаль)

var
 n,i,a,sum:longint;
begin
 writeln('a = ');
 readln(a);
 writeln('n = ');
 readln(n);
 sum:=1;
 for i:= 1 to n do
   sum:= sum*(a+i);
 writeln(sum);
end.