!ESTE PROGRAMA LE NOME E IDADE DE UMA PESSOA E A CLASSIFICA PELA FAIXA ETÁRIA
PROGRAM PROGRAMA_IDADE
    IMPLICIT NONE
    INTEGER IDADE
    CHARACTER *15 NOME

    WRITE(*,*)"ESTE PROGRAMA CLASSIFICA PESSOAS PELA FAIXA ETARIA"
    WRITE(*,*)	
    WRITE(*,*)"DIGITE O NOME:"
    READ (*,*)NOME
	WRITE(*,*)"DIGITE A IDADE:"
    READ (*,*)IDADE
    
    IF(IDADE < 2)THEN
      WRITE(*,*) NOME, "EH UM BEBE"
    END IF  
    
    IF(IDADE >= 2 .AND. IDADE < 12)THEN
      WRITE (*,*) NOME, "EH CRIANCA"
    END IF
    
    IF(IDADE >= 12 .AND. IDADE < 18)THEN
      WRITE (*,*) NOME, "EH ADOLESCENTE"
    END IF  
    
    IF(IDADE >= 18 .AND. IDADE < 60 )THEN
      WRITE (*,*) NOME, "EH ADULTO"
    END IF
    
    IF(IDADE >= 60) THEN
      WRITE (*,*) NOME, "EH IDOSO"
    END IF
    
    STOP
END PROGRAM PROGRAMA_IDADE
    
    