LET monton = 12
LET llevar = 0

DO WHILE monton > 0
   PRINT "Quedan"; monton; "fichas. ¿Cuántas te gustaría tomar";
   INPUT llevar
   DO WHILE llevar = 0 Or llevar > 3
      PRINT "Debes tomar 1, 2, o 3 fichas. ¿Cuántas te gustaría tomar";
      INPUT llevar
   LOOP

   PRINT "Es mi turno, tomaré"; 4-llevar; "ficha(s)."
   LET monton = monton - 4
LOOP

PRINT
PRINT "Obtuve la última ficha. ¡Gané! Mejor suerte la próxima vez."
END