Pascal. Составить программу которая по видимому возрасту определяет приезжающего ребенка в отряд.

Program zadacha;

var a: integer;

begin

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

readln (a);

case a of

6,7: writeln ('5-ый отряд');

8,9: writeln ('4-ый отряд');

10,11: writeln ('3-ый отряд');

12,13: writeln ('2-ый отряд');

14,15: writeln ('1-ый отряд')

else writeln ('Ребенок слишком взрослый');

end;

end.