Вопрос, который вызвал трудности

Задача: Долгожитель (не менее 100лет) обнаружил,что если к сумме квадратов цифр его возраста прибавить его дату рождения,то получится его возраст,сколько ему лет?
Это Паскаль, напишите ответ пожалуйста.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.