Составьте алгоритм, в результате выполнения которого запрашивается число. Если это число находится в пределах от -1 до +1, то сообщается число 0, если число не находится в пределах от -1 до +1, то сообщается число 1.

Begin
  for var v := 100 to 150 do begin //возраст от 100 до 150 лет
        
 var q := Sqr(StrToInt(IntToStr(v)[1]))    //Суммируем квадраты каждой цифры
           + Sqr(StrToInt(IntToStr(v)[2]))    //из возможного возраста
           + Sqr(StrToInt(IntToStr(v)[3]));   //и записываем его в q

   for var d := 1 to 31 do begin                //Берем день месяца от 1 до 31
      if (q + d) = v then begin                    //Если q + день = возрасту
        println('День:', D, ' Возраст: ', v);   //Выводим сообщение
      end;
    end;
  end;
end.

Стилевое форматирование имеет ряд преимуществ:

1) экономит время - применить стиль как набор параметров форматирования значительно быстрее, чем задавать соответствующие параметры один за другим;

2) обеспечивает единообразие в оформлении текстового документа - при прямом форматировании одинаковые по функциональному назначению структурные элементы могут отличаться своими форматами; применение определённого стиля вносит строгость в оформление документа;

3) позволяет быстро изменить вид отдельных элементов во всём документе - достаточно внести изменения в стиль, и оформление будет изменено во всём документе.