ОТДЕЛ Возраст+;

ИСПОЛЬЗУЕТ
  Вывод ИЗ "...\Отделы\Обмен\";

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

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

УКАЗ
  Положение(1917);
  Положение(1991);
  Положение(2004)
КОН Возраст.

▲ Вопросы, замечания и предложения высылайте на atimopheyev@yahoo.com или Издателю Глагола: