CLS
PRINT "Exane de admision"
INPUT "Calificacion en el examen de letras en base a 200    ", A1
INPUT "Calificacion en el examen de ciencias en base a 200    ", 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