Задача.

Зная возраст ребёнка определить в каком звене школы он обучается

6-11 лет младшая школа

12-16 лет средняя школа

17-18 лет старшая школа

Var a:integer;

begin

write ('Возраст ребенка равен ') ;

read (a) ;

if (a5) then writeln ('Ребенок учится в младшей школе ')

elseif (a>11) and (a<17) then writeln ('Ребенок учится в средней школе ') else

if (a5) then writeln ('Ребенок учится в старшей школе ')

else if (a>18) then writeln ('Ребенок уже не учится') ;

if (a<6) then writeln ('Ребенок еще мал') ;

end.