funcao embaralha(vetor(int)b):
    int n, i, j, tmp
    n <- tamanho(b)
    para i em (0 .. n-1):
        j <- rand(i, n)
        tmp  <- b[i]
        b[i] <- b[j]
        b[j] <- tmp

funcao da_cartas(vetor(int) id, vetor(string) ca, int cont):
    int i
    vetor(string,5) m

    para i em (0..5):
        m[i] <- ca[id[i+cont]]
    retorne m

funcao cria_id (int n): vetor(int)
    int i
    vetor(int) v
    
    v <- zeros(n)
    para i em (0..n):
        v[i] <- i
    retorne v

funcao cria_ca (): vetor(string)
    vetor(string) naipes
    vetor(string) valores
    vetor(string) ca
    int i, n, v

    naipes <- ['ouros', 'espadas', 'copas', 'paus']
    valores <- [ 'A', '2', '3', '4', '5',
                '6', '7', '8', '9', '10', 'J', 'Q', 'K' ]
    ca <- vetor(string, 56)
    i <- 0
    para n em (0..tamanho(naipes)):
        para v em (0..tamanho(valores)):
            ca[i] <- concatena (valores[v], ' de ',  naipes[n])
            i <- i + 1
    retorne ca

int cont
string quer_mais
vetor(string) ca
vetor(int) id

ca <- cria_ca()
id <- cria_id(52)
embaralha(id)

cont <- 0
quer_mais <- "s"

enquanto(quer_mais = "s" E cont < 52):
    mostre da_cartas(id,ca,cont)
    cont <- cont + 5
    leia quer_mais