funcao compara (string a, string b): real
    n <- tamanho(a)
    cont <- 0
    para i em (0..n):
        se (a[i] == b[i]):
            cont <- cont + 1
    retorne 100 * cont / n

leia dna1
leia dna2

se (tamanho(dna1) != tamanho(dna2)):
    mostre "Sequências de tamanhos diferentes!"
senao:
    mostre "As sequências tem similaridade igual a", compara(dna1, dna2), "%"