OpenConsole()
Define n.i
Dim nuggets.i(100)

For six.i = 0 To 100/6
  For nine.i =  0 To 100/9
    For twenty.i = 0 To 100/20
      n = six*6 + nine*9 + twenty*20
      If n <= 100
        nuggets(n) = #True
      EndIf
    Next twenty
  Next nine
Next six

For n = 100 To 1 Step -1
  If nuggets(n) = #False
    PrintN("Maximum non-McNuggets number is: " + Str(n))
    Break
  EndIf
Next n

PrintN(#CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()