Все лабораторные работы по паскалю / 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.