Código Número Mayor

MAYOR
Este programa permite seleccionar en orden los números mayor, menor, y medio, para esto ingresamos tres valores, Valor A,Valor B, Valor C. Utilizamos un modulo principal (MMain).

MODULO MMain
PUBLIC SUB Main()
DIM a, b, c AS Integer
PRINT "<<<>>>"
PRINT "Ingrese Valor A:"
INPUT a
PRINT "Ingrese Valor B:"
INPUT b
PRINT "Ingrese Valor C:"
INPUT c
IF ((a > b) AND (a > c)) THEN
PRINT "Mayor", a
IF (b > c) THEN
PRINT "Medio", b
PRINT "Menor", c
ELSE
PRINT "Medio", c
PRINT "Menor", b
ENDIF
ENDIF
IF ((b > c) AND (b > a)) THEN
PRINT "Mayor", b
IF (a > c) THEN
PRINT "Medio", a
PRINT "Menor", c
ELSE
PRINT "Medio", c
PRINT "Menor", a
ENDIF
ENDIF
IF ((c > b) AND (c > a)) THEN
PRINT "Mayor", c
IF (b > a) THEN
PRINT "Medio", b
PRINT "Menor", a
ELSE
PRINT "Medio", a
PRINT "Menor", b
ENDIF
ENDIF
END