Anónimo respondió:
Aquí tienes el código pero hecho con cifras en ludar de con letras. No creo que te sea difícil adaptarlo para lo que tú quieres. Uses CRT; Type ArrayNumerico = Array [1..4] of integer; ArrayLogico = Array[1..6] of Boolean; Var NSecreto :...