Código
SQASP4