! ---------------------------------------------------------------------------
! Programa: VerificarNumero
! Descripción: Este programa solicita al usuario ingresar un número entero
! y luego determina si el número es positivo, negativo o cero. Además, el programa
! evalúa si el número es par o impar.
! ---------------------------------------------------------------------------

program VerificarNumero
    implicit none  ! Indica que todas las variables deben ser declaradas explícitamente

    ! Declaración de variables
    integer :: numero  ! Variable para almacenar el número ingresado por el usuario

    ! Solicita al usuario ingresar un número
    print *, 'Ingresa un número:'
    read *, numero  ! Lee el número ingresado desde la consola

    ! Evaluación para determinar si el número es positivo, negativo o cero
    if (numero > 0) then
        print *, 'El número es positivo.'  ! Imprime si el número es mayor que cero
    else if (numero < 0) then
        print *, 'El número es negativo.'  ! Imprime si el número es menor que cero
    else
        print *, 'El número es cero.'  ! Imprime si el número es igual a cero
    end if

    ! Evaluación para determinar si el número es par o impar
    if (modulo(numero, 2) == 0) then
        print *, 'El número es par.'  ! Imprime si el número es divisible por dos sin residuo
    else
        print *, 'El número es impar.'  ! Imprime si el número no es divisible por dos sin residuo
    end if

end program VerificarNumero