Помогите составить программу

[neomaximus]

Долгожитель (возраст не менее 100 лет) обнаружил однажды, что если к сумме квадратов цифр его возраста прибавить число дня его рождения, то как раз полу-чится его возраст. Сколько лет долгожителю?
Вот код но чтото здесь неправильное

var i,n,n1,n2,n3:integer;
begin
for i:=100 to 200 do begin
n1:=i div 100;
n2:=i div 10 - n1*10;
n3:=i mod 10;
n:=n1*n1+n2*n2+n3*n3;
if n>=i then continue;
if i-n<=31 then writeln(i);
end;
end.

[Карась]

А что именно?
Судя по всему этому условию удовлетворит только одно число
Хотя ещё незнаю как граматно аналитически это показать.....

[Serge_Bliznykov]

угу. согласен с Карась - всё работает,
что не так то? :-)
Ваш код работает, выдаёт ответ 109 лет. (значит дата рождения 27 сумма квадратов 1^2+ 0^2 + 9^2=82
82 + 27 = 109)

[mutabor]

neomaximus, ты математически можешь решить?, если да, давай решение, я программу напишу

p.s. по ходу все решилось уже )