McNuggets problem: Difference between revisions

=={{header|MAD}}==

<lang mad> NORMAL MODE IS INTEGER

BOOLEAN NUGGET

DIMENSION NUGGET(101)

THROUGH CLEAR, FOR I=0, 1, I.G.100

CLEAR NUGGET(I) = 0B

THROUGH MARK, FOR A=0, 6, A.G.100

THROUGH MARK, FOR B=A, 9, B.G.100

THROUGH MARK, FOR C=B, 20, C.G.100

MARK NUGGET(C) = 1B

SEARCH THROUGH SEARCH, FOR I=100, -1, .NOT.NUGGET(I)

PRINT FORMAT F, I

VECTOR VALUES F = $29HMAXIMUM NON-MCNUGGET NUMBER: ,I2*$

END OF PROGRAM </lang>

{{out}}

<pre>MAXIMUM NON-MCNUGGET NUMBER: 43</pre>