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


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

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

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

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

nicetyy, возможно ты имела в виду

P = a(a - n)*(a - n^2)*(a - n^3)*...*(a - n^n)

?

а чем такой вариант лучше приведенного в задании nicetyy?

Я просто сначала вообще не понял что она имела в виду, теперь понятно