funcao le_matriz (int l, int c): vetor(real, *, *)
    int i, j
    vetor(real, l, c) a
    para i em (0..l-1):
        para j em (0..c-1):
            leia a[i][j]
    retorne a

funcao soma(vetor(real, *, *) a,
            vetor(real, *, *) b): vetor(real, *, *)
    int i, j
    int l1 <- linhas  (a)
    int c1 <- colunas (a)
    int l2 <- linhas  (b)
    int c2 <- colunas (b)
    vetor(real, l1, c2) c
    para i em (0..l1-1):
        para j em (0..c2-1):
            c[i,j] <- a[i,j] + b[i,j]
    retorne c

funcao mostra_mat (vetor(real, *, *) a):
    int i, j
    int l <- linhas  (a)
    int c <- colunas (a)
    para i em (0..l-1):
        para j em (0..c-1):
            mostre a[i,j]
        nova_linha

int m, n

leia m, n
vetor(real, m, n) a, b, c


a <- le_matriz(ent,m,n)
b <- le_matriz(ent,m,n)

c <- soma (a, b)

mostra_mat (c)