Fresh Chocolate solutions

Fresh Chocolate was solved using Pascal by 2 contestants. Solution sizes: average 1267 bytes (shortest: 623; longest: 1787).