Написать программу, которая запрашивает возвраст и выводит сообщение (подросток или нет). будем считать возвраст подростка от 11 лет до 15 лет. (pascal)

Begin
Var a:integer;
  writeln('введите возраст');
  readln(a);
  if (a>11) and (a<15) then writeln('подросток')
  else writeln('нет');
end.