c     ex002303.f
      program ex002303
      implicit real*8(a-h, o-z)
      parameter(Nmax=50)
      integer p(Nmax)
      data p/62, 26, 52, 67, 70, 54, 61, 51, 77, 18, 60, 69, 69, 69, 70,
     &       37, 51, 52, 52, 65, 50, 37, 77, 69, 67, 80, 65, 70, 75, 67,
     &       59, 60, 80, 75, 85, 65, 85, 57, 55, 20, 65, 80, 80, 47, 49,
     &       78, 65, 65, 59, 72/
      write(*,*) (p(i), i=1, Nmax )
      write(*,*) p
      do i=1, Nmax
        write(*,*) p(i)
      enddo
      stop
      end