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

program zz1;

var

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

begin

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

read (a);

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

read (n);

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

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

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

write (' результат = ', p); / / выводим ответ

end.