Даны естественные числа x,y,z, определяющие возраст трех приятелей.Из данных чисел напечатать

program zz1;

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

i:integer;

begin

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

read(x);  

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

read(y);

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

read(z);

if (x gt; 6) and (x lt; 17) then writeln( 1-ый друг школьного возраста ) else writeln( 1-ый друг не школьного возраста );

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

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

end.