Используя оператор цикла for – to – next, вычислить сумму квадратов всех нечетных чисел от 1 до 31.

Microsoft QBASIC 1.0

CLS
s = 0
FOR i = 1 TO 31 STEP 2
  s = s + i ^ 2
NEXT i
PRINT s

Будет выведено значение 5456