C
C
C
C

      program apent

      real *4 raio, area

      write (*,*) 'Valor do raio:'

      read (*,*) raio

      area = (5.0/8.0)*raio*raio*sqrt (10.0+2.0*sqrt(5.0))

      write (*,*) 'Area do pent gono:', area, '(unidades^2)'

      end