Задачка: Долгожитель (не наименее 100лет) обнаружил,что если к сумме квадратов цифр

Что значит "прибавить дату рождения" ? Может денек рождения?

Да, денек. Ошибочка)

Причём тут Паскаль? в инете и так есть информация о том, сколько лет Блезу Паскалю...

А если речь о программе, то не понятно, что нужно сделать. Проверить все возроста от 100 и до ... ? До бесконечности?

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.