var Age: byte;
begin
writeln('Введите возраст человека');
readln(Age);
if (Age>=6)and(Age<=17) then writeln('Является')
else writeln('Не является');
end.
program name;vara:integer;beginwriteln('Введите возраст человека');readln(a);if a>17 then writeln('Не Является') else writeln('Является'); end.
var Age: byte;
begin
writeln('Введите возраст человека');
readln(Age);
if (Age>=6)and(Age<=17) then writeln('Является')
else writeln('Не является');
end.
program name;
var
a:integer;
begin
writeln('Введите возраст человека');
readln(a);
if a>17 then writeln('Не Является')
else writeln('Является');
end.