FORTRAN CODE TO PASCAL - this time I got it right - c-means.for (0/1)

CAN SOMEONE PLEASE TRANSLATE THIS TO PASCAL.  OR EVEN C