Interesting Ranges solutions

Interesting Ranges was solved using Pascal by 2 contestants. Solution sizes: average 1674 bytes (shortest: 1526; longest: 1822).