PROGRAM	"McNuggets problem"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
DIM N[100]

FOR A = 0 TO 100/6
 FOR B = 0 TO 100/9
  FOR C = 0 TO 100/20
    K = A*6+B*9+C*20
   IF K <= 100 THEN N[K] = 1
  NEXT C
 NEXT B
NEXT A

FOR K = 100 TO 1 STEP -1
 IF N[K] <> 1 THEN PRINT "Maximum non-McNuggets number is: "; K : EXIT FOR
NEXT K

END FUNCTION
END PROGRAM