Даны натуральные числа x, y, z, определяющие возраст трех друзей. Из данных чисел напечатать те, которые обозначают ''школьный'' возраст, то есть от 7 до 16 лет. (На языке Паскаль)

program zz1;

var x, y, z:integer; / / задаем переменные целого типа

i:integer;

begin

write (' введите возраст первого друга '); / / вводим с клавиатуры первое число

read (x);

write (' введите возраст второго друга '); / / вводим с клавиатуры второе число

read (y);

write (' введите возраст третьего друга '); / / вводим с клавиатуры третье число

read (z);

if (x > 6) and (x < 17) then writeln (' первый друг школьного возраста ') else writeln (' первый друг не школьного возраста ');

if (y > 6) and (y < 17) then writeln (' второй друг школьного возраста ') else writeln (' второй друг не школьного возраста ');

if (z > 6) and (z < 17) then writeln (' третий друг школьного возраста ') else writeln (' третий друг не школьного возраста ');

end.