program ch1001a
implicit none
integer , parameter :: n=12
integer :: i
integer , dimension(1:n) :: x
integer , dimension(1:n) :: y
   open(unit=10,file='ch0901.txt',status='old')
  do i=1,n
    read(unit=10,fmt=100)x(i),y(i)
    100 format(I4,8X,I3)
    write(unit=*,fmt= 200)x(i),y(i)
    200 format(1x,i3,2x,i3)
  end do
end program ch1001a