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

CLS
PRINT "Задача о раскройке обоев для оклейки комнаты с заданными размерами."
10 PRINT "Введите длину комнаты,м :"; : INPUT a
IF a <= 0 THEN PRINT "Ошибка! Введено недопустимое значение!"
IF a <= 0 THEN GOTO 10
20 PRINT "Введите ширину комнаты,м :"; : INPUT b
IF b <= 0 THEN PRINT "Ошибка! Введено недопустимое значение!"
IF b <= 0 THEN GOTO 20
30 PRINT "Введите высоту комнаты,м :"; : INPUT h
IF h <= 0 THEN PRINT "Ошибка! Введено недопустимое значение!"
IF h <= 0 THEN GOTO 30
40 PRINT "Введите ширину обоев,мм :"; : INPUT q
IF q <= 0 THEN PRINT "Ошибка! Введено недопустимое значение!"
IF q <= 0 THEN GOTO 40
q = q / 1000' Перевод милиметров в метры
50 PRINT "Введите длину рулона 1 типа,м :"; : INPUT s
IF s <= 0 THEN PRINT "Ошибка! Введено недопустимое значение!"
IF s <= 0 THEN GOTO 50
60 PRINT "Введите длину рулона 2 типа,м :"; : INPUT t
IF t <= 0 THEN PRINT "Ошибка! Введено недопустимое значение!"
IF t <= 0 THEN GOTO 60
per = 2 * a + 2 * b'Периметр комнаты
' Подсчет количества полос обоев в комнате
pol% = per / q
IF (pol% * q) < per THEN
  pol% = pol% + 1
END IF
' Количество полос в первом рулоне
s1% = INT(s / h)
' Количество полос во втором рулоне
s2% = INT(t / h)
 
minost = pol% * h' Начальное значение остатка обоев (большое число)
mini% = 0' Начальное значение полос из рулонов 1 типа
FOR i% = 0 TO pol% STEP 1' Сколько полос взять из рулонов первого типа
  rul% = INT(i% / s1%)' Количество целых рулонов
  ost = (s * rul%) - (s1% * h) * rul%' Остаток от целых рулонов
  IF i% > (rul% * s1%) THEN
    ost = ost + s - h * (i% - rul% * s1%)' Плюс остаток в неполном рулоне
  END IF
 
  j% = pol% - i%' Сколько полос взять из рулона второго типа
  rul% = INT(j% / s2%)' Количество целых рулонов
  ost = ost + (t * rul%) - (s2% * h) * rul%' Плюс остаток от целых рулонов
  IF j% > (rul% * s2%) THEN
    ost = ost + t - h * (j% - rul% * s2%)' Плюс остаток в неполном рулоне
  END IF
  IF ost < minost THEN
    minost = ost
    mini% = i%
  END IF
NEXT i%
PRINT "Получилось: "; mini%; " полос из 1 типа"
PRINT "     и      "; pol% - mini%; " полос из 2 типа"
PRINT " Обрезки: "; minost; " м"
n1% = INT(mini% / s1%)
IF (n1% * s1%) < mini% THEN
  n1% = n1% + 1
END IF
 
n2% = INT((pol% - mini%) / s2%)
IF (n2% * s2%) < (pol% - mini%) THEN
  n2% = n2% + 1
END IF
PRINT n1%; " рулонов 1 типа"
PRINT n2%; " рулонов 2 типа"

cls
1 input "Shirina oboev mm:"; q
if q<=0 then print "Mistake!": goto 1
q=q/1000
2 input "Dlina rulona 1 m:"; s
if s<=0 then print "Mistake!": goto 2
3 input "Dlina rulona 2 m:"; t
if t<=0 then print "Mistake!": goto 3
4 input "Dlina, shirina, visota komnati m:"; a,b,h
if a<=0 or b<=0 or h<=0 then print "Mistake!": goto 4
'вводим данные
p=2*(a+b): polos=p/q: obr=int(polos+1)-polos' находим периметр, сколько полос потребуется и размер обрезков по ширине
if obr>0 then polos=int(polos+1)
dlin=polos*h' находим необходимую длину обоев
 
color 4
if s>t then rul1=int(dlin/s): goto 5 else rul2=int(dlin/t): goto 6' находим тип обоев, рулоны которого длиннее
if dlin/s-int(dlin/s)>0 then rul1=rul1+1: goto 5
if dlin/t-int(dlin/t)>0 then rul2=rul2+1' находим необходимое кол-во рулонов
 
while obr1<0 and obr2<0
5 obr1=rul1*s+s-dlin: rul1=rul1+1
6 obr2=rul2*t+t-dlin: rul2=rul2+1
7 if obr1>obr2 then rul1=rul1-1:rul2=rul2+1 else rul2=rul2-1: rul1=rul1+1
wend
' находим оптимальное кол-во рулонов  
color 4: print "rul1:"; rul1: print "rul2:"; rul2
obrez=(rul1*s+rul2*t)-dlin: print "obrez:"; obrez+obr' находим обрезки
end

INPUT "vvedite shirinu oboev, mm ", q
INPUT "vvedite s ", s
INPUT "vvedite t ", t
INPUT "vvedite a ", a
INPUT "vvedite b ", b
INPUT "vvedite h ", h
n = (2 * a + 2 * b) / (q / 1000)
IF n > INT(n) THEN n = n + 1
l = n * h
ss = l / s
IF ss > INT(ss) THEN ss = ss + 1
min = l
FOR i = 0 TO ss
j = 0
r = 0
DO
j = j + 1
r = i * s + j * t
LOOP UNTIL r >= l
IF r - l < min THEN min = r - l: ks = i: kt = j
NEXT
PRINT "min="; min; "metrov "; "kol-vo s="; ks; "kol-vo t="; kt