UCSD Pascal

{Pascal-P}