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.