(*~\Глагол\Приложения\Календарь\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
                                ОТДЕЛ Возраст+;
ИСПОЛЬЗУЕТ
  НаЭкран ИЗ "..\..\Отделы\Обмен\ВводВывод\";

ПОСТ
  нынешнийГод = 2008;

(*----------------------------------------------------------------------------*)
ЗАДАЧА Положение(годРождения:ЦЕЛ);
ПЕР
  положение:РЯД 7 ИЗ ЗНАК;
  возраст:ЦЕЛ;
УКАЗ
          возраст:=нынешнийГод-годРождения;
  ВЫБРАТЬ
          возраст
  ИЗ
  |   0 .. 7*1-1: положение:="дитя"
  | 7*1 .. 7*2-1: положение:="отрок"
  | 7*2 .. 7*3-1: положение:="юноша"
  | 7*3 .. 7*8-1: положение:="муж"
  | 60,70,80,90:  положение:="юбиляр"
  ИНАЧЕ
    положение:="старец"
  КОН;
  НаЭкран.Цел4числа("^мужчина %d года рождения - ",годРождения,0,0,0);
  НаЭкран.ВсяЦепь(положение)
КОН Положение;

(*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*)
УКАЗ
  НаЭкран.ВсяЦепь("^");
  Положение(1917);
  Положение(1991);
  Положение(2004);
  НаЭкран.ВсяЦепь("^")
КОН Возраст.
