FORTRAN CODE TO PASCAL

CAN SOMEONE PLEASE TRANSLATE THIS TO PASCAL.  OR EVEN C