Implement Problem 2 in Fortran 77.