CALCULA EL NUMERO MAYOR Y MENOR

PUBLIC SUB Main()
DIM a, b, c AS Integer
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