Дано натуральное число n. Вычислить a (a-n) (a-2n) ... (a-nn)

Var

a, n, p: longint;

i: integer;

begin

Write ('Введите через пробел a и n: ') ;

Readln (a, n) ;

p : = a;

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

Writeln ('Произведение равно ', p)

end.

Тестовое решение:

Введите через пробел a и n: 3 7

Произведение равно 884932096