! Ejemplo de nombres significativos
integer :: num_students
real :: average_grade
character(len=50) :: student_name

subroutine calculate_average(num_students, average_grade)
    integer, intent(in) :: num_students
    real, intent(out) :: average_grade
    ! Cuerpo de la subrutina
end subroutine calculate_average

! Este programa calcula la media de las calificaciones de los estudiantes
program calculate_grades
    integer :: num_students
    real :: average_grade

    ! Llamada a la subrutina para calcular la media
    call calculate_average(num_students, average_grade)
    print *, 'La media de las calificaciones es: ', average_grade
end program calculate_grades

program example
    integer :: i

    ! Bucle para imprimir números del 1 al 10
    do i = 1, 10
        print *, 'Número: ', i
    end do
end program example

module math_operations
    contains
        subroutine add(a, b, result)
            real, intent(in) :: a, b
            real, intent(out) :: result
            result = a + b
        end subroutine add
end module math_operations

program use_math_operations
    use math_operations
    real :: x, y, sum

    x = 5.0
    y = 3.0
    call add(x, y, sum)
    print *, 'La suma es: ', sum
end program use_math_operations

program error_handling_example
    integer :: num_students
    real :: average_grade

    ! Verificación de entrada
    print *, 'Ingrese el número de estudiantes:'
    read *, num_students
    if (num_students <= 0) then
        print *, 'Error: El número de estudiantes debe ser mayor que 0.'
        stop
    end if

    ! Llamada a la subrutina para calcular la media
    call calculate_average(num_students, average_grade)
    print *, 'La media de las calificaciones es: ', average_grade
end program error_handling_example

!> Calcula la media de las calificaciones de los estudiantes
subroutine calculate_average(num_students, average_grade)
    integer, intent(in) :: num_students
    real, intent(out) :: average_grade
    ! Cuerpo de la subrutina
end subroutine calculate_average

program factorial_program
    integer :: num, result

    ! Solicitar al usuario que ingrese un número
    print *, 'Ingrese un número entero positivo:'
    read *, num

    ! Verificación de entrada
    if (num < 0) then
        print *, 'Error: El número debe ser positivo.'
        stop
    end if

    ! Llamada a la subrutina para calcular el factorial
    call calculate_factorial(num, result)
    print *, 'El factorial de ', num, ' es: ', result
end program factorial_program

!> Calcula el factorial de un número entero positivo
subroutine calculate_factorial(n, factorial)
    integer, intent(in) :: n
    integer, intent(out) :: factorial
    integer :: i

    factorial = 1
    do i = 1, n
        factorial = factorial * i
    end do
end subroutine calculate_factorial