!
! Questão 01 da Lista de exercícios para sala de aula - Capítulo F90/1
!
program figuras
    write (*, *) "Apresentacao das figuras:"
    write (*, *)
    write (*, *) "*********"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*********"
    write (*, *)
    write (*, *) "   ***"
    write (*, *) " *     *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) "*       *"
    write (*, *) " *     *"
    write (*, *) "   ***"
    write (*, *)
    pause
    write (*, *)
    write (*, *) "    *"
    write (*, *) "   ***"
    write (*, *) "  *****"
    write (*, *) " *******"
    write (*, *) "*********"
    write (*, *) "   ***"
    write (*, *) "   ***"
    write (*, *) "   ***"
    write (*, *) "   ***"
    write (*, *)
    write (*, *) "    *"
    write (*, *) "   * *"
    write (*, *) "  *   *"
    write (*, *) " *     *"
    write (*, *) "*       *"
    write (*, *) " *     *"
    write (*, *) "  *   *"
    write (*, *) "   * *"
    write (*, *) "    *"
    stop
end program figuras
