Elena_until

{Долгожитель (возраст не менее 100 лет) обнаружил однажды,
что если к сумме квадратов цифр его возраста прибавить
число дня его рождения, то как раз получится его возраст.
Сколько лет долгожителю?}
var
    x,y,s,i:integer;
begin
    x:=99;
    repeat
        inc(x);
        y:=x;s:=0;
        while y>0 do
        begin
            i:=y mod 10;
            y:=y div 10;
            s:=sqr(i)+s;
        end;
        for i:=1 to 31 do
            if (s+i)=(x) then writeLN('Den'' rojdenia: ',i,', vozrast: ',x);
    until(s=x);
    read;
End.