QUESTION(5) (5-a) page 53

      FUNCTION R(U,V,W)
      R=SQRT(U**2+V**2+W**2)
      RETURN
      END
      READ(*,*)X,Y,Z
      D=2*X
      E=3*Y
      F=2*Z
      A=X/R(X,Y,Z)
      B=R(X,Y,Z)
      C=R(D,E,F)
      WRITE(*,*)A,B,C
      STOP
      END