Core Training solutions

Core Training was solved using Pascal by 2 contestants. Solution sizes: average 1411 bytes (shortest: 1212; longest: 1611).