cs304P (Pascal)
