Дано натуральное число N. Вычислите произведение первых N сомножителей. P=2/3*4/5*6/7*…*2N/2N+1 — QBasic(Бейсик)

INPUT "'vvedite N ", n
p = 1
FOR i = 1 TO n
    p = p * i * 2 / (2 * i + 1)
NEXT
PRINT p

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

Дано натуральное число N. Вычислите произведение первых N сомножителей. P=2/34/56/7…2N/2N+1 — QBasic(Бейсик)