Pascal.. даны натуральные числа а, n. вычислить a(a-n)*(a--n*n)

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