Решите в паскаль двумя с использованием цикла с параметром и с предусловием. дано действительное число а, натуральное число n. вычислить: p = a (a+1)××(a+n-1)

Var  a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
  p:=p*(a+i);
writeln('ответ: ',p);
end.

var  a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
  begin
  i:=i+1;
  p:=p*(a+i);
  end;
writeln('ответ: ',p);
end.