int i, inicio, fim
string s

leia s

inicio <- 0
fim <- len(s)

enquanto (inicio < len(s)/3-1):
    para i in (0..inicio-1):
        mostre(' ')
    para i in (inicio..fim-1):
        mostre(s[i])
    nova_linha
    inicio <- inicio + 1
    fim <- fim - 1

    
enquanto (inicio >= 0):
    para i em (0..inicio-1):
        mostre(' ')
    para i em (inicio..fim-1):
        mostre(s[i])
    nova_linha
    inicio <- inicio - 1
    fim <- fim + 1