Даны естественные числа а, n. Вычислить a(a-n)(a-2n)...(a-n*n). через паскаль

program zz1;

var

 i, n, a, p: integer; // задаем переменные целого типа

begin

 write( введите 1-ое заданное число a );  // вводим с клавиатуры 1-ое естественное число

 read(a);  

 write( введите 2-ое данное число n );  // вводим с клавиатуры 2-ое натуральное число

 read(n);

 p:=1; // задаем изначальное значение для произведения

 for i:=0 to n do // организуем цикл, на n+1 повторений

 p:=p*a-i*n;  // вычисляем значение выражения по заданной формуле

 write( итог = , p); // выводим ответ

end.