!
! Questão 16 da Lista 06 de exercícios para sala de aula - Capítulo F90/4
!
PROGRAM UNIAO
INTEGER :: A(20), B(20), AB(40), TA, TB, I, J
LOGICAL :: CONTIDO
 
! 1. obter conjutos A e B
! DETERMINAR OS TAMANHOS DOS CONJUNTOS
WRITE (*,*) "INFORME O TAMANHO DOS CONJUNTOS A E B:"
READ (*,*) TA, TB
!OBTER OS CONJUNTOS
WRITE(*,*) "ENTRE COM OS VALORES DO CONJUNTO A:"
DO I=1,TA
  READ(*,*) A(I)
  END DO
WRITE(*,*) "ENTRE COM OS VALORES DO CONJUNTO B:"
DO I=1,TB
  READ(*,*) B(I)
  END DO
! PROCESSAR A UNIAO
DO I=1,TA
  AB(I)=A(I)
  END DO
K = TA+1
DO I = 1,TB
  CONTIDO = .FALSE.
  J=1
  DO WHILE (.NOT.(CONTIDO).AND.(J<=TA))
    IF (B(I) == A(J)) THEN
      CONTIDO = .TRUE.
      END IF
    J = J+1
    END DO
  IF (.NOT.(CONTIDO)) THEN
    AB(K) = B(I)
    K= K+1
    END IF
  END DO
! MOSTRAR O RESULTADO
WRITE(*,*) "A UNIAO E:"
  DO I=1, K-1
    
  WRITE (*,*) AB(I)
  END DO
STOP
END PROGRAM UNIAO