implicit real*8(a-h,o-z)
dimension n(91553),exx(91553),eyy(91553),ezz(91553)
do i=1,91553
read*, n(i),exx(i),eyy(i),ezz(i)
end do
do i=23012,23452,11
      print*,ezz(i),n(i)
end do
end
