Решить задачу: a*(a-n)*(a-2n)*…*(a-n(в квадрате))- PureBasic(Бейсик)

a=660
n=5
otvet=1
For i=0 to n
  otvet=otvet* a*(a-i*n)
next i
print otvet