Algoritmos Visual Basic Console