#include <basico.h>

algoritmo

    n=0, c=""
    temp = 0, candidatos={}

    '123, 12345, 1234567, 987654321, 10001, -10001,-123'
    '-100, 100, -12345,1, 2, -1, -10, 2002, -2002, 0'
    enlistar en 'candidatos'

    decimales '0'

    #basic{
       temp = string(candidatos * sign(candidatos))
       n = len( temp )
       c = replicate (temp, n>=3 && not(is even(n)))
       toksep(NL)
       print (cat( lpad(" ",11,string(candidatos)), cat(" : ", copy( 3, (n/2-1), c ))),NL)
    }
terminar