Como o TabNews não salienta a sintaxe de algumas linguagens, coloquei uma screenshot. Não tenho uma linguagem de preferência e resolvi mostrar como poderia ficar em duas linguagens

• Na esquerda FreePascal (Pascal é antiga mas capaz e ainda utilizada). Nada de mais. Apenas mostrando a criação de um tipo de variável que aceita apenas uma faixa de 1 a 8. Valores diferentes causam uma exceção facilitando o tratamento da entrada.
• Na direita M (MUMPS). Primeira linguagem com BD não relacional embutido na linguagem. Mais para mostrar que a linguagem pode ser bastante consisa. Poderia ter abreviado os comandos/funções para uma letra (READ=R, IF,I, WRITE,W, FOR=F, DO=D, $JUSTIFY=$J e $EXTRACT=$E).