Expensive Dinner solutions

Expensive Dinner was solved using Pascal by 17 contestants. Solution sizes: average 1168 bytes (shortest: 764; longest: 1922).

The list below is sorted by solution size. You can also sort by ranking.