Определить, какое количество целых полос потребуется для оклейки помещения

CLS
PRINT " optimalniy metod okleiki pomescheniya"
PRINT " oboiami dvux tipov"
PRINT
10 PRINT "Введите размеры pomeschenia в метрах"
INPUT "Длина = ", l
INPUT "Ширина = ", h
INPUT "Ширина oboiev 1 типа = ", c
INPUT "Ширина oboiev 2 типа= ", d
omin = l * h
 IF l <= 0 OR h <= 0 OR c <= 0 OR d <= 0 THEN
 BEEP
 PRINT "Одно из введенных чисел некоректно. Введите положительное число"
 GOTO 10
 END IF
nc = l / c
nc = FIX(nc) ' максимальное количество полос ширины с
nd = l / d
nd = FIX(nd) ' максимальное количество полос ширины d
ncc = h / c
ncc = FIX(ncc) '
 xc = h - c * ncc
ndd = h / d
ndd = FIX(ndd)
 xd = h - d * ndd
 FOR i = 0 TO nc STEP 1
  FOR j = 0 TO nd STEP 1
    x = l - c * i - d * j
    IF x >= 0 THEN o = x * h + xc * c * i + xd * d * j
    IF i * c + j * d < l THEN GOTO 20 ELSE GOTO 30
20 PRINT "при количестве полос 1 и 2 типа соответственно"; i; " и "; j
    PRINT "nezakleennyi остаток равен "; o
30   IF omin > o THEN omin = o: i1 = i: j1 = j
     
  NEXT j
 NEXT i
PRINT
PRINT "оптимальный вариант okleiki:"
PRINT
PRINT "при количестве полос 1 типа = "; i1
PRINT "2 типа = "; j1
PRINT "суммарная площадь nezakleennogo ostatka равна"; omin