Даны действительное число a, натуральное число n. Вычислить: P=a(a-n)(a-2n)*...*(a-n^2). Решить на языке Turbo Pascal. Помогите плииз

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

Var a,p: Real;    n,i: Integer;

Begin    ClrScr; {просто чтобы очистить экран можно и не использовать}    Write('Type a: '); Read(a);    Write('Type n: '); Read(n);    for i:=1 to n do    begin        p:=p+(a*(a-i*n)*(a-n*n));        {не совсем понятны три точки в условии}    end;    Writeln('p=', p:3:3); {количество знаков после запятой и общее}    Readkey; {или можно использовать Readln;}End.

var  a, result:real;  n, i:integer;begin  write('a = ');  readln(a);  write('n = ');  readln(n);  result := a;    for i := 1 to n do    result := result * (a - i * n);  writeln('Result = ', result);  readln;end.