Expensive Dinner solutions

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

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