Целочисленная арифметика, Задача Опции

[XANDER]

Даны натуральные числа n, m. Найти все натуральные числа меньше n, квадрат суммы цифр которых равен m.

Помогите решить, пожалуйста.

[klem4]

uses crt;
var
   n,m,s,i,temp : integer;
begin
   clrscr;

   write('n='); readln(n);

   write('m='); readln(m);

   for i := 1 to n-1 do begin
      s := 0;
      temp := i;
      while(temp>0) do begin
         s := s + temp mod 10;
         temp := temp div 10;
      end;

      if sqr(s) = m then writeln(i);
   end;

   readln
end.