Portal solutions

Portal was solved using Pascal by 4 contestants. Solution sizes: average 3843 bytes (shortest: 2396; longest: 4570).