Var a:integer; begin write('Возраст ребенка равен '); read(a); if (a<12) and (a>5) then writeln('Ребенок учится в младшей школе ') elseif (a>11) and (a<17) then writeln('Ребенок учится в средней школе ') else if (a<19) and (a>5) then writeln('Ребенок учится в старшей школе ') else if (a>18) then writeln('Ребенок уже не учится'); if (a<6) then writeln('Ребенок еще мал'); end.
begin
write('Возраст ребенка равен ');
read(a);
if (a<12) and (a>5) then writeln('Ребенок учится в младшей школе ')
elseif (a>11) and (a<17) then writeln('Ребенок учится в средней школе ') else
if (a<19) and (a>5) then writeln('Ребенок учится в старшей школе ')
else if (a>18) then writeln('Ребенок уже не учится');
if (a<6) then writeln('Ребенок еще мал');
end.