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

[XANDER]

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

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

[NorthAngel]

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

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

Код

uses crt;
var
  b,t,s,i:integer;
  n,m,a:longint;
begin
   clrscr;
   write('n = ');  read(n);
   write('m = ');  read(m);
   for i:=1 to n-1 do
   begin
     s:=0;
     a:=i;
     repeat
        b:=a div 10;
        t:= a-b*10;
        s:=s+t;
        a:=b;
     until a<=0;
     if s*s=m then writeln(i);
   end;
   readkey;
end.