Нужно написать программу в паскале p=a(a+1)(a+2)...(a+n). Помогите, пожалуйста!

program an;
var a,n,p,i: integer;
begin
writeln('Input a=');
read(a);
writeln('Input n=');
read(n);
p:=a;
For i:=1 to n do
p:=p*(a+i);
writeln;
writeln('p=',p);
end.