CLS
PRINT "TRIVIA PARA TODO PUBLICO"
PRINT "1. COMO SE LLAMA MI PADRE?"
PRINT "1. DOMINGO 2. MANUEL 3. SAMUEL"
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 "2. COMO SE LLAMA EL PRESIDENTE DE LA REPUBLICA DE PANAMA?"
PRINT "1. MARTINELLI 2. MARTIN  3. MIREYA"
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 " 3. COMO SE LLAMA LA PROFESORA DE ESPANOL?"
PRINT "1. ANGELA 2. GRISELA 3. ROSA"
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 "4.DE QUE COLOR ES EL CABALLO BLANCO DE NAPOLEON?"
PRINT "1. BLANCO 2. AZUL 3. NEGRO"
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 "5. COMO  SE LLAMA LA PRESIDENTA DE NUESTRA PROMOSION?"
PRINT "1.MELODY 2. AMANDA 3. FATIMA"
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. COMO SE LLAMA EL NOVIO DE SOFIA?"
PRINT "1. EDWIN 2. LEONARDO 3. RAFAEL"
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 "7. DE CUANTOS PISOS ES MI CASA?"
PRINT " 1. DOS 2. TRES 3. CUATRO"
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 "8. DE QUE COLOR ES EL CIELO?"
PRINT "1. CELESTE 2. AZUL 3. NO TIENE COLOR"
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. ME QUIERES?"
PRINT " 1. SI 2. NO 3. NO SE"
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 " 10. COMO SE LLAMA MI HERMANO?"
PRINT "1. ANDRES 2. SAMUEL 3. KYLE"
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 "11. HICISTES TODOS LOS PROBLEMAS?"
PRINT "1. SI 2. NO 3. TALVES"
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 "12. TE ESTAS ABURRIENDO?"
PRINT "1. SI 2. NO 3. CLARO"
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. COMO SE LLAMA LA PROTAGONISTA DE MULAN?"
PRINT "1. MULAN 2. ERICA 3. SHONA"
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. ME QUIERES?"
PRINT "1. SI 2. NO 3. TALVES"
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 "15. ADONDE FUI EL MARTES?"
PRINT "1. MULTIPLAZA 2. MULTICENTRO 3. A NINGUN LADO"
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.USAS MAXELL?"
PRINT "1.SI 2. NO 3. TALVES"
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 "17. LOS CARROS PESAN?"
PRINT "1. SI 2. NO 3. TALVES"
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 "18. CUAL ES EL VERDADERO NOMBRE DE ROLO?"
PRINT "1. ROLANDO 2. ROGELIO 3. RAMON"
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 "19. CUANDO CUMPLO?"
PRINT "1. EL QUINCE 2. EL CUATRO 3. EL DOS"
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 "20. TE GUSTA MI COMPUTADORA?"
PRINT "1. SI 2. NO 3. TALVES"
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