Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p03

program p03;
uses crt;
var k: integer;
p: string;
begin
clrscr;
write('Введите ваш возраст - ');
readln(k);
case k of
0..8: p:='Дитя';
9..11: p:='Отрок';
12..17: p:='Юноша';
18..23: p:='Молодой человек';
24..59: p:='Мужчина';
else p:='Старик';
end;
write('Вы - ',p);
readln;
end.