PROGRAM  Select_Numbers
   IMPLICIT  NONE
   INTEGER           :: Number, i
   REAL              :: u, v, x, y, Sum
   CHARACTER(LEN=40) :: ReadIn, WriteOut

   ReadIn   = "(2F10.2,F20.2,F10.2)"
   WriteOut = "(I5, A, 2F7.2)"

   READ(*,"(I5)")  Number
   Sum = 0.0
   WRITE(*,"(A, A)")  " ", "Input Number List"
   WRITE(*,"(A, A)")  " ", "================="
   DO i = 1, Number
      READ(*,ReadIn)  u, v, x, y
      WRITE(*,WriteOut)  i, " - ", v, y
      Sum = Sum + v*y
   END DO
   WRITE(*,"(A, A)")  " ", "---------------------"
   WRITE(*,"(A, A, F7.2)")  " ", "Sum = ", Sum
END PROGRAM  Select_Numbers