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

var  a,n,p,i:integer;beginwrite('Введите а и 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;beginwrite('Введите а и n: ');readln(a,n);p:=a;while i<n-1 do  begin  i:=i+1;  p:=p*(a+i);  end;writeln('Ответ: ',p);end.