Помогите решить задачу в Pascal

[nbepo]

Задача на ряды: даны действительное число а и натуральное число n
P=a(a-n)(a-2n)...(a-n^2)

Напишите пожалуйста код этой программы.
Заранее благодарен.

[e2e4]

см. п. 2. здесь

[nbepo]

Ну я попробовал сам решить, вот что получилось:

uses crt;
var p,a:real;
n,i:integer;
begin
writeln('vvedite n ');
readln(n);
writeln('vvedite a ');
readln(a);
i:=1;
p:=a;
while i*n<=(n*n) do
begin
p:=p*(a-i*n);
i:=i+1;
end;
writeln(p);
readln;
end.

Программа работает, тока я не уверен, что правильно понял суть задачи.
Подскажите пожалуйста, так не так?

[luitzen]

nbepo писал(а):

while i*n <= n*n do

[nbepo]

luitzen писал(а):

nbepo писал(а):

while i*n <= n*n do

Можна как-то посерьезней?
Ошибка тут или в чем дело?

[bullvinkle]

var a,p:real;
       n,i:integer;
BEGIN
  writeln('Input N');
  readln(n);
  writeln('Input A');
  readln(a);
  p:=a;
  for i:=1 to n do begin
  p:=p*(a-i*n);
  end;
  writeln ('P = ',p);
  readln;
  END.

[nbepo]

тоже самое по сути, тока упрощенный вариант
спасибо.