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

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