c     ex0401.f
      program ex0401
      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/
      maxP = 0
      do i=1, Nmax
         if( p(i) .gt. maxP ) then
            maxP = p(i)
         endif
      enddo
      write(*,*) 'Maximum is ', maxP
      stop
      end