Data update

Task/McNuggets-problem/True-BASIC/mcnuggets-problem.basic

@@ -0,0 +1,22 @@
+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