Elegant Diamond solutions

Elegant Diamond was solved using Pascal by 9 contestants. Solution sizes: average 1855 bytes (shortest: 1356; longest: 2358).