Даны действительное число a, натуральное число n. Вычислить: P=a(a+1)*…*(a+n-1) — QBasic(Бейсик)

INPUT "vvedite a ", a
INPUT "vvedite x ", x
p = 1
FOR i = a TO a + n - 1
    p = p * i
NEXT
PRINT p

Тестирование выполнено в программе QB64 ( Скачать )

Даны действительное число a, натуральное число n. Вычислить: P=a(a+1)…(a+n-1) — QBasic(Бейсик)