Charging Chaos solutions

Charging Chaos was solved using Pascal by 4 contestants. Solution sizes: average 2303 bytes (shortest: 1577; longest: 3428).