цикл с параметром, задача на вычисление Опции

[nicetyy]

Даны действительное число а, натуральное число n. Вычислить:
P=a(a-n)(a-2n)*...*(a-n2).


n2- n в квадрате

[Postman]

Всё очень просто, считаешь циклом:

writeln ('enter a,n');
 readln (a,n);
 p:=a;

 for i:=1 to n do
 begin
  p:=p*(a-i*n);
 end;