В запечатанном мешке лежит некоторое количество монет неизвестных номиналов

'$DYNAMIC                                        
DIM S(10000)
INPUT "VES MESHKA"; W
INPUT "VES MONET"; WM$
FOR Q = 1 TO 3
P(Q) = INSTR(P(Q - 1) + 1, WM$, " ")
NEXT Q
W1 = VAL(MID$(WM$, 1, P(1) - 1))
W2 = VAL(MID$(WM$, P(1) + 1, P(2) - P(1)))
W3 = VAL(MID$(WM$, P(2) + 1, P(3) - P(2)))
W4 = VAL(MID$(WM$, P(3) + 1, LEN(WM$) - P(3)))
W = W - W1
N1 = W \ W1
N2 = W \ W2
N3 = W \ W3
N4 = W \ W4
FOR A4 = 0 TO N4
FOR A3 = 0 TO N3
FOR A2 = 0 TO N2
FOR A1 = 0 TO N1
IF A1 * W1 + A2 * W2 + A3 * W3 + A4 * W4 > W THEN
EXIT FOR
ELSEIF A1 * W1 + A2 * W2 + A3 * W3 + A4 * W4 = W THEN
K = K + 1
S(K) = N1 + N2 * 5 + N3 * 10 + N4 * 50
END IF
NEXT A1
IF A1 * W1 + A2 * W2 + A3 * W3 + A4 * W4 > W THEN EXIT FOR
NEXT A2
IF A1 * W1 + A2 * W2 + A3 * W3 + A4 * W4 > W THEN EXIT FOR
NEXT A3
IF A1 * W1 + A2 * W2 + A3 * W3 + A4 * W4 > W THEN EXIT FOR
NEXT A4
FOR T = 1 TO K
FOR M = 1 TO K - 1
IF S(M) > S(M + 1) THEN
C = S(M + 1)
S(M + 1) = S(M)
S(M) = C
END IF
NEXT M
NEXT T
PRINT S(K)

CLS
DO
    INPUT "vvedite w"; w
LOOP UNTIL w > 0 AND w <= 10000
INPUT "vvedite w1,w2,w3,w4"; w1, w2, w3, w4
w = w - w1
n4 = w \ w4
w = w - n4 * w4
n3 = w \ w3
w = w - n3 * w3
n2 = w \ w2
w = w - n2 * w2
n1 = w \ w1
w = w - n1 * w1
IF w <> 0 THEN n1 = n1 + 1
q = (n1 + n2 * 5 + n3 * 10 + n4 * 50) / 100
PRINT "rub ="; q

CLS
DO
    INPUT "vvedite w"; w
LOOP UNTIL w > 0 AND w <= 10000
INPUT "vvedite w1,w2,w3,w4"; w1, w2, w3, w4
n = CINT((w - w1) / ((w1 + w2 + w3 + w4) / 4))
q = CINT(n * 16.5) / 100
PRINT "rub ="; q

CLS
n = 4
DIM a(n), w(n), n(n)
DO
    INPUT "vvedite w"; w
LOOP UNTIL w > 0 AND w <= 10000
INPUT "vvedite w1,w2,w3,w4"; w(1), w(2), w(3), w(4)
w = w - w(1)
a(1) = 1 / w(1)
a(2) = 5 / w(2)
a(3) = 10 / w(3)
a(4) = 50 / w(4)
FOR j = 1 TO n
    FOR k = 1 TO n
        IF a(k) > t THEN t = a(k): i = k
    NEXT
    a(i) = 0
    t = 0
    n(i) = w \ w(i)
    w = w - n(i) * w(i)
NEXT
IF w > 0 THEN n(1) = n(1) + 1
q = n(1) + 5 * n(2) + 10 * n(3) + 50 * n(4)
PRINT q
END