CLS
PRINT "TRIVIA PARA TODO PUBLICO"
PRINT "1. COMO ME LLAMO"
PRINT "1. GRJU 2. ILANA 3. YISSELL"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "2. CUAL ES EL NOMBRE DE MI HERMANA"
PRINT "1. GISELA  2. LUCRECIA 3. JUANA"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 1 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "1. CUAL ES EL NOMBRE DE MI PERRO"
PRINT "1. APOCALIPSIS 2. PANICO 3. BROWNIE"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "4. CUAL ES EL NOMBRE DE MIS MEJORES AMIGAS"
PRINT "1. JOANA,SERENA Y PELA 2. DEBORA,ARANXA Y CAROLINA  3.SUSANA,JUANA Y PEPA"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "5. EN QUE A¥O ESTOY"
PRINT "1. V A¥O 2. IV A¥O 3. II A¥O"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 1 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "6. CUAL ES EL NOMBRE DE MI PELUCHE"
PRINT "1. COCO 2. MONSTRITO 3. PELUCHE"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "7. CUANTOS A¥OS TENGO"
PRINT "1. 21 2. 16 3. 17"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "8. CUAL ES EL NUMERO DE MI CASA"
PRINT "1. 2335646 2. 2391969 3. 2368227"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 1 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "9. EN QUE SALON ESTOY"
PRINT "1. 5A 2. 5E 3. 5B"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "10. QUIEN ES MI CHACHO"
PRINT "1. DUNBAR 2. COHUTTA 3. ILAN"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "11. QUIEN ES MI MEJOR AMIGO"
PRINT "1. CRISTIAN 2. ANDRES 3. RICARDO"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "12. CUAL ES MI CELULAR"
PRINT "1. 68131980 2. 68790067 3. 64949041"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 1 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "13. CUALES SON MIS COLORES FAVORITOS"
PRINT "1. NEGRO Y ROSADO 2. AZUL Y VERDE 3. CHOCOLATE Y TURQUESA"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 1 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "14. QUE ME GUSTA HACER"
PRINT "1. CORRER 2. ESCUCHAR MUSICA 3. COMER"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "15. CUAL ES MI DEPORTE FAVORITO"
PRINT "1. TENIS 2. NATACION 3. FUTBOL"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 1 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "16. QUE HORA ES"
PRINT "1. 7:30 2. 2:25 3. 8:43"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "17. QUE DIA CUMPLO"
PRINT "1. 31 2. 13 3. 12"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "18. EN QUE MES CUMPLO"
PRINT "1. ENERO 2. MAYO 3. NOVIEMBRE"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "19. EN QUE A¥O NACI"
PRINT "1. 3789 2. 1993 3. 1875"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 2 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF
PRINT "1. TENGO ALGUN SECRETO"
PRINT "1. SI 2. NO 3. TALVES"
INPUT "PULSE EL NUMERO Y ENTER", R
IF R = 3 THEN
PRINT "CORRECTO"
LET TB = TB + 1
ELSE
PRINT "INCORRECTO"
LET TM = TM + 1
END IF