Произведение от 5 до 10 нечётных чисел.
CLSs = 1FOR i = 5 TO 10 IF i MOD 2 <> 0 THEN s = s * i END IFNEXT iPRINT s