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

funcao transposta(a):
    int l <- linhas(a)
    int c <- colunas(a)
    vetor(real, c, l) at
    
    para i em (0..l-1):
        para j em (0..c-1):
            at[j][i] <- a[i][j]
    retorne at

funcao mostra_mat (a):
    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
vetor(real *,*) a

leia m, n

a <- le_matriz(m,n)

mostra_mat (transposta(a))