PROGRAM lue
  IMPLICIT NONE
  REAL, DIMENSION(5) :: a
  INTEGER :: i

  READ (*,*) (a(i), i=1,5)
  READ (*,*) a
  READ (*,*) a(1:5)
END PROGRAM tulosta