cs304P (Pascal) CS304P