Código
QBOL12