Задача: Долгожитель (не менее 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.