Определить в какие отряды распределят детей — Pascal(Паскаль)

uses crt;

var
  adge: integer;

begin;
  clrscr;
  writeln('Введите возраст ребенка');
  readln(adge);
  IF (adge > 5) and (adge <= 7) THEN
    writeln('5-й отряд');
  IF (adge > 7) AND (adge <= 9) THEN
    writeln('4-й отряд');
  IF (adge > 9) AND (adge <= 11) THEN
    writeln('3-й отряд');
  IF (adge > 11) AND (adge <= 13) THEN
    writeln('2-й отряд');
  IF (adge > 13) AND (adge <= 15) THEN
    writeln('1-й отряд');
  IF (adge < 6) OR (adge > 15) THEN
    writeln('В лагерь не допускается');

end.