Ex:1b - page 135

      dimension country(5) , capital(5)
      character(len=10) :: country
      character(len=10) :: capital

      read(*,*) (country(i),i=1,5)
      read(*,*) (capital(i),i=1,5)

      do 10 i=1,5
         write(*,*) country(i),capital(i)
 10   continue

      pause
      stop
      end