Определить по вводимому возрасту отряд для ребенка - Turbo Pascal

Формулировка задачи:

Группу детей, приехавшую в пионерский лагерь, распределяют по отрядам следующим образом: 6-7 лет – 5 отряд; 7-9 лет – 4 отряд; 9-11 лет – 3 отряд; 11-13 лет – 2 отряд; 13-15 (включительно) – 1 отряд. Определить по вводимому возрасту отряд для ребенка

Решение задачи: «Определить по вводимому возрасту отряд для ребенка»

Листинг программы

var
  n : byte;
begin
  repeat
    write('введите возраст ребенка: ');
    readln(n)
  until (n >= 6) and (n <= 15);
  case n of
    6 : writeln('5 отряд');
    7 : writeln('4 или 5 отряд');
    8 : writeln('4 отряд');
    9 : writeln('4 или 3 отряд');
    10 : writeln('3 отряд');
    11 : writeln('3 или 2 отряд');
    12 : writeln('2 отряд');
    13 : writeln('2 или 1 отряд');
    14, 15 : writeln('1 отряд')    
  end;
  readln  
end.

Объяснение кода листинга программы

Код написан на языке Turbo Pascal. Он предлагает пользователю ввести возраст ребенка, а затем определяет отряд для ребенка на основе этого возраста. Если возраст ребенка равен 6, выводится сообщение 5 отряд. Если возраст равен 7, выводится сообщение 4 или 5 отряд. Если возраст равен 8, выводится сообщение 4 отряд. Если возраст равен 9, выводится сообщение 4 или 3 отряд. Если возраст равен 10, выводится сообщение 3 отряд. Если возраст равен 11, выводится сообщение 3 или 2 отряд. Если возраст равен 12, выводится сообщение 2 отряд. Если возраст равен 13, выводится сообщение 2 или 1 отряд. Если возраст равен 14 или 15, выводится сообщение 1 отряд. Затем программа просит пользователя еще раз ввести свой возраст, пока он не введет число, которое находится в заданном диапазоне.