Помогите написать программу на паскале Опции

[neomax]

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

[klem4]

function good_age(_age: integer; var day: integer): boolean;
var
  sum, temp, age: integer;
begin
  sum := 0;

  age := _age;

  while age > 0 do begin
    temp := age mod 10;
    inc(sum, temp * temp);
    age := age div 10;
  end;

  day := _age - sum;
  good_age := day <= 31;
end;

var
  age, max_age, day: integer;

begin
  max_age := 300;

  for age := 100 to max_age do
   if good_age(age, day) then writeln('age = ', age, ' day = ', day);
end.