21 lines
458 B
Text
21 lines
458 B
Text
proc nonrec main() void:
|
|
byte LIMIT = 100;
|
|
[LIMIT+1] bool nugget;
|
|
byte a, b, c;
|
|
|
|
for a from 0 upto LIMIT do
|
|
nugget[a] := false
|
|
od;
|
|
|
|
for a from 0 by 6 upto LIMIT do
|
|
for b from a by 9 upto LIMIT do
|
|
for c from b by 20 upto LIMIT do
|
|
nugget[c] := true
|
|
od
|
|
od
|
|
od;
|
|
|
|
a := LIMIT;
|
|
while nugget[a] do a := a - 1 od;
|
|
writeln("Maximum non-McNuggets number: ", a)
|
|
corp
|