Если число четное, то вычислить произведение - QBasic

Формулировка задачи:

2.Дано целое число N оно больше нуля. Если N нечетное, то вывести произведение 1*3..... N, если N чётное. то вывести произведения 2*4...N. Чтобы избежать целочисленного переключения, вычислять это с помощью вещественное переменной и выводить его как вещественное число.

Решение задачи: «Если число четное, то вычислить произведение»

Листинг программы

CLS
INPUT n
IF n MOD 2=0 THEN x=2 ELSE x=1 
s=1
FOR i=x TO n STEP 2
s=s*i
NEXT i
?s

Объяснение кода листинга программы

CLS - очистка экрана
INPUT n - ввод числа n
IF n MOD 2=0 THEN x=2 ELSE x=1 - проверка числа на четность, присвоение переменной x значения 2 или 1
s=1 - присвоение переменной s значения 1
FOR i=x TO n STEP 2 - цикл, выполняющийся с шагом 2, начиная с числа x и заканчивая числом n
s=s*i - умножение значения переменной s на текущее значение i
NEXT i - переход к следующей итерации цикла
?s - вывод значения переменной s