Pascal.СРОЧНО. Даны натуральные числа а, n.
Вычислить
a(a-n)*(a-2n)...(a-n*n)

Спасибо!Всё работает я прост не разобрался в условии и не понял что от меня хотят(

Должно быть правильно, проверь на тестах.vara,c,d,n:longint;beginread(a,n);d:=1;for c:=1 to n dod:=a*(a-n*c)*d;writeln(d);end.