Сколько можно купить быков, коров и телят, зная цены и бюджет

DIM b%, k%, t%
FOR b = 0 TO 5
  FOR k = 0 TO (100 - b * 10) / 5
    t = 100 - b - k
    IF b * 10 + k * 5 + t / 2 = 100 THEN
      PRINT "b="; b, "k="; k, "t="; t
    END IF
  NEXT k
NEXT

DEFDBL A-Z
WIDTH 80, 50
CLS
DIM b AS INTEGER, k AS INTEGER, t AS INTEGER
DIM bm AS INTEGER, km AS INTEGER, tm AS INTEGER
DIM n AS INTEGER
m = 100     ' Денег в наличии
n = 100     ' Необх кол-во
bp = 10     ' Цена быка
bm = m / bp ' Не больше быков можно приобрести
kp = 5      ' Цена коровы
km = m / kp ' Не больше коров можно приобрести
tp = .5     ' Цена телятины
tm = m / tp ' Не больше телят можно приобрести
dop = .01   ' Допуск на всякий случай(для возм. ошибки округления)
  '  Ограничим снизу
IF bm < 1 THEN bm = 1
IF km < 1 THEN km = 1
IF tm < 1 THEN tm = 1
  '  В файл запишем возможные комбинации
  OPEN "OTVET.TXT" FOR OUTPUT AS #1
  '  Перебор
FOR b = 1 TO bm
   bullpr = bp * b
   FOR k = 1 TO km
      cowpr = kp * k
      FOR t = 1 TO tm
         p = tp * t + cowpr + bullpr   '  Цена комбинации
         '  Если цена совпала
         IF p > m - dop AND p < m + dop THEN
           '  И количество тоже
           IF b + k + t = n THEN
             cmb = cmb + 1  ' Номер комбинации
             PRINT #1, cmb; ") Bulls ="; b; ";  Cows ="; k; ";  Calfs ="; t
             PRINT cmb; ") Bulls ="; b; ";  Cows ="; k; ";  Calfs ="; t
           END IF
         END IF
      NEXT
   NEXT
NEXT
  CLOSE

FOR b=0 TO 100\10
FOR k=0 TO 100\5
t=100-k-b
IF b*10+k*5+t*0.5=100 THEN PRINT "bykov=";b;" korov=";k;" telyat=";t
NEXT
NEXT