Найти максимальный объём коробки - QBasic

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

Помогите, пожалуйста, сделать так, чтобы проверка стороны квадрата(высоты коробки) начиналась с числа на разряд меньшего стороны листа, т.е., если сторона листа = 0,7, то проверка шла с 0,07 Задача: Имеется лист бумаги со сторонами a*b. Из листа делается коробка следующим образом: по углам листа вырезается четыре квадрата и коробка склеивается по швам. Какова должна быть сторона квадрата, вырезанного из листа, чтобы коробка имела наибольшую вместимость.

m10:  INPUT "Введите сторону листа А = ", a
INPUT " Введите сторону листа B = ", b
IF a<=0 OR  b<=0  THEN 
PRINT  «С данными значениями коробка не получится» 
GOTO m10
END IF
IF a <= b THEN n = INT(a / 2) ELSE n = INT(b / 2)
max = 0
FOR i = 1 TO n
V = (a - 2 * i) * (b - 2 * i) * i
IF V > max THEN
max = V
stkv = i
END IF
NEXT
PRINT  «max объём коробки = », max
PRINT  «Сторона квадрата = ", stkv

Решение задачи: «Найти максимальный объём коробки»

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

IF a <= b THEN n = a / 2 ELSE n = b / 2
max = 0
FOR i = n / 10 TO n STEP n / 10

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

Проверяется условие: если переменная a меньше или равна переменной b, то переменная n присваивается значение переменной a деленное на 2, иначе переменная n присваивается значение переменной b деленное на 2.
Инициализируется переменная max значением 0.
Запускается цикл FOR, который начинается с переменной i равной n деленное на 10 и выполняется до тех пор, пока значение переменной i не станет больше или равно n. Шаг цикла равен значению переменной n деленное на 10.