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

program check_shk1;uses crt;var a:integer;BEGINwriteln('Введите возраст.');readln(a);if (a>6) and (a<17) thenwriteln('Является.')elsewriteln('Не является.');END.

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