4) Escreva um algoritmo que leia caracteres em dois vetores vetA e vetB, de cinco posições.

Após os dois vetores terem sido lidos, o algoritmo deverá colocar em um terceiro vetor vetC o resultado da união dos dois primeiros, i.e., os caracteres que estão contidos em um ou outro vetor. Assuma que em um mesmo vetor não haverá caracteres repetidos, mas uma caracter contido em vetA poderá também estar contido em vetB. Nesse caso, apenas uma ocorrência é colocada em vetC. Por exemplo, se
vetA = { “A”, “E”, “F”, “6“,“?”}
e
vetB = { “F”, “3”, “?”, “F“,“H”,“E”}
então
vetC = { “A”, “E”, “F”, “6“,“?”,”E”,“H”}
algoritmo “Conjunto”
var
  vetA,vetB: vetor [1..5] de literal
  vetC: vetor [1..10] de literal
  i,j,k: inteiro
  log: logico
inicio
  escreva(“Elementos do conjunto A”)
  para i de 1 ate 5 faca
    escreva(“Digite o “,i,”o elemento de A: “)
    leia(vetA[i])
  fimpara
  escreval(“Elementos do conjunto B”)
  para i de 1 ate 5 faca
    escreva(“Digite o “,i, “o elemento de B: “)
    leia(vetB[i])
  fimpara
  k<-1
  para i de 1 ate 5 faca
    log <- FALSO
    para j de 1 ate 5 faca
      se (vetA[i]=vetA[j]) entao
         se(i>j) entao
            log <- VERDADEIRO
         fimse
      fimse
      se (vetA[i]=vetB[j]) entao
         log <- VERDADEIRO
      fimse
    fimpara
   se (log=FALSO) entao
      vetC[k] <- vetA[i]
      k <- k + 1
   fimse
  fimpara
  para i de 1 ate 5 faca
    log<- FALSO
    para j de 1 ate 5 faca
      se (vetB[i]=vetA[j]) entao
         log <- VERDADEIRO
      fimse
      se (vetB[i]=vetB[j]) entao
         se(i  > j) entao
            log <- VERDADEIRO
         fimse
      fimse
    fimpara
    se (log=FALSO) entao
      vetC[k] <- vetB[i]
      k <- k + 1
    fimse
  fimpara
fimalgoritmo