OPTION BASE 0
DIM nuggets(100)
FOR n = 0 TO 100
    LET nuggets(n) = 0
NEXT n

FOR six = 0 TO 100/6
    FOR nine =  0 TO 100/9
        FOR twenty = 0 TO 100/20
            LET n = six*6 + nine*9 + twenty*20
            IF n <= 100 THEN LET nuggets(n) = 1
        NEXT twenty
    NEXT nine
NEXT six

FOR n = 100 TO 1 STEP -1
    IF nuggets(n) <> 1 THEN
       PRINT "Maximum non-McNuggets number is: "; n
       EXIT FOR
    END IF
NEXT n
END