Составьте программу, которая проверяет, является ли человек заданного возраста школьником, если возраст школьника - от 6 до 17 лет, и выводит на экран соответствующее сообщение: "является" либо "не является".

Program check_shk1;
uses crt;
var a:integer;
BEGIN
writeln('Введите возраст.');
readln(a);
if (a>6) and (a<17) then
writeln('Является.')
else
writeln('Не является.');
END.

Var
a :integer;
begin
write ('введите количество лет ');
readln(a);
if (a>5)and(a<18)  then write('является ') else  write('не является ');
end.