Какое количество автобусов и машин нужно заказать, чтобы стоимость заказа была минимальной

CLS
INPUT "n"; n
INPUT "a"; a
INPUT "b"; b
IF n < 1 OR n > 100000 OR b < 1 OR a < b OR a > 1000 THEN PRINT "ochsibka": END
IF n <> FIX(n) OR a <> FIX(a) OR b <> FIX(b) THEN PRINT "ochsibka": END
IF n / 50 <> FIX(n / 50) THEN n1 = FIX(n / 50) + 1: d1 = 1 ELSE n1 = n / 50
IF n / 4 <> FIX(n / 4) THEN n2 = FIX(n / 4) + 1: d2 = 1 ELSE n2 = n / 4
min = 1E38
FOR x1 = 0 TO n1
    FOR x2 = 0 TO n2
        l = (x1 * 50 + x2 * 4)
        IF l >= n AND l <= n + (l - n) THEN
            p = (x1 * a + x2 * b)
            IF p < min THEN min = p: k1 = x1: k2 = x2
        END IF
    NEXT
NEXT
m1 = (min - k2 * b) / a
m2 = (min - k1 * a) / b
PRINT m1; m2

CLS
OPEN "trans.in" FOR INPUT AS #1
INPUT #1, n, a, b
CLOSE #1
IF n / 50 <> FIX(n / 50) THEN n1 = FIX(n / 50) + 1 ELSE n1 = n / 50
IF n / 4 <> FIX(n / 4) THEN n2 = FIX(n / 4) + 1 ELSE n2 = n / 4
min = 1E38
FOR x1 = 0 TO n1
    FOR x2 = 0 TO n2
        l = (x1 * 50 + x2 * 4)
        IF l >= n AND l <= n + (l - n) THEN
            p = (x1 * a + x2 * b)
            IF p < min THEN min = p: k1 = x1: k2 = x2
        END IF
    NEXT
NEXT
m1 = (min - k2 * b) / a
m2 = (min - k1 * a) / b
OPEN "trans.out" FOR OUTPUT AS #2
PRINT #2, m1; m2
CLOSE #2