funcao separa (vetor(int) v): vetor(int)
    n <- tamanho(v)
    a <- 0
    b <- n-1
    vetor(int, n) novo
    para i em (0..n-1):
        se v[i] % 2 = 0:
            novo[b] <- v[i]
            b <- b - 1
        senao:
            novo[a] <- v[i]
            a <- a + 1
    retorne novo

leia n
vetor(int, n) v

para i em (0..n-1):
    leia v[i]

v2 <- separa(v)

para i em (0..n-1):
    mostre v[i]