Составьте программу , которая проверяет, является ли парень призывником ( его возраст должен быть от 18 до 27 лет) и выводит на экран соответствующее сообщение ''является" либо "не является''

Var a:integer;
begin
readln(a);
if (a in [18..27]) then writeln('Является')
else writeln('Не является');
end.