[Resolvido] algoritmo para mostrar intersecção

Bom dia

Montei esse algoritmo ele tem que ler dois vetores e mostrar os numeros que se repetem em A e B

var
a, b : vetor[1..5] de inteiro
i, j : inteiro
inicio
// Seção de Comandos
para i de 1 ate 5 faca
escreval("Digite um numero inteiro par o conjunto A")
leia(a[i])
fimpara
para j de 1 ate 5 faca
escreval("Digite um numero inteiro para o conjunto B")
leia(b[j])
fimpara
para i de 1 ate 5 faca
para j de 1 ate 5 faca
se a[i] = b[j] entao
escreval(a[i])
fimse
fimpara
fimpara
fimalgoritmo

O meu ta funcionando só q nao sei se é a maneira mais logica de resolver...

Poderia ser feito de outra forma?