CLS
PRINT "Exane de admision"
INPUT "Calificacion en el examen de letras", A1
INPUT "Calificacion en el examen de ciencias", B1
IF A1 >= 90 THEN
IF B1 >= 90 THEN
PRINT "Aprobado bienvenido a la facultad"
END IF
END IF
IF A1 >= 90 THEN
IF B1 < 90 THEN
PRINT "Aprobado bienvenido a la facultad"
END IF
END IF
IF A1 < 90 THEN
IF B1 >= 90 THEN
PRINT "Aprobado bienvenido a la facultad"
END IF
END IF
IF A1 < 90 THEN
IF B1 < 90 THEN
PRINT "Reprobado"
END IF
END IF