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

Var
a:integer;
BEGIN
write('вв-те возраст ');
readln(a);
if (a>=18) and (a<=27) then writeln('является') else writeln('не является');
end.