Many Prizes solutions

Many Prizes was solved using Pascal by 9 contestants. Solution sizes: average 2685 bytes (shortest: 579; longest: 12211).