даны a и n вычислить a*(a-n)*(a-2n)*...*(a-n^2) на basic

QBasic:

CLS
INPUT "a = ", a
INPUT "n = ", n
P = 1
FOR i = 0 TO n
P = P * (a - i)
NEXT i
PRINT "P = "; P
END