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

Спасибо)))

Если от 6 до 17, включая 6 и 17, то замени:(A>6)and(A<17)на:(A>=6)and(A<=17)

Не за что=)))

Var A:integer;BeginWriteLn('Введи возраст человека');ReadLn(A);if (A>6)and(A<17) then Write('Является школьником')else WriteLn('Не является школьником')End.