Найти все трехзначные числа, сумма квадратов цифр которых равна заданному числу N

var a,b,c,i,n,d:integer;
begin
readln(n);
for i:=1000 to 9999 do
begin
a:=i mod 10;//4
b:=i div 10 mod 10;//3
c:=i div 10 mod 100;
d:=i div 1000;//1
if (n=sqr(a)+sqr(b)+sqr(d)+sqr(c)) then 
writeln('Найдено искомое число: ',i);
end;
writeln;
write('время ',Milliseconds);
writeln;
end.

s:=0;
while i>0 do
 begin
   s:=s+sqr(i mod 10);
   i:=i div 10;
 end;
if s=n....

var a,b,c,i,n,s:integer;
begin
readln(n);
for i:=1000 to 9999 do
begin
s:=0;
while i>0 do
 begin
   s:=s+sqr(i mod 10);
   i:=i div 10;
 end;
 if (n=sqr(a)+sqr(b)+sqr(d)+sqr(c)) then 
writeln('Найдено искомое число: ',i);
end;
end.

var p,n,i,j,a,s:integer;
begin
write('Введите порядок чисел от 1 до 10 p=');
readln(p);
write('Введите сумму цифр n=');
readln(n);
j:=1;
for i:=1 to p do
j:=j*10;//определяем степень 10
for i:=j div 10 to j-1 do//от в 10 раз меньше до на 1 меньше
  begin
   a:=i;
   s:=0;
   while a>0 do
    begin
     s:=s+sqr(a mod 10);
     a:=a div 10;
    end;
   if s=n then writeln('Найдено искомое число: ',i);
  end;
end.