Квадраты нескольких 3-xзначных чисел оканчиваются 3 цифрами, которые составляют исходные числа. Найти эти числа. Паскаль

[zig1]

Дана задача:
Квад-ты нескольких 3-xзначных чисел оканчивается 3 цифрами, которые составляют исходные числа. Найти эти числа

var i,s,a1,a2,a3:integer;
begin
s:=0;
for i:=100 to 999 do begin
  a1:= i div 100;
  a2:= i div 10 mod 10;
  a3:= i mod 10;
s:=sqr(i);
writeln (s);
end;
end.

Никак не пойму что делать дальше, или я вообще делаю нитак как надо, прошу помочь.

[Serge_Bliznykov]

ну, например решение "в лоб"

var i,s,a1,a2,a3: longint;
begin
for i:=100 to 999 do begin
  s := sqr(i) div 1000; {получим последние три цифры квадрата числа}
  a1:= s div 100;
  a2:= s div 10 mod 10;
  a3:= s mod 10;
  if ((a1*100+a2*10+a3)=i) or
     ((a1*100+a3*10+a2)=i) or
     ((a2*100+a1*10+a3)=i) or
     ((a2*100+a3*10+a1)=i) or
     ((a3*100+a1*10+a2)=i) or
     ((a3*100+a2*10+a1)=i) then 
       writeln ('Квадрат числа ',i,' заканчивается на цифры ',s);
end;
readln;
end.

если ноль не является допустимой в решении цифрой, тогда добавьте проверку на то, что s>=100

[Mad_Cat]

серж, по моему для получения 3 последних чисел квадрата нужен все таки mod а не div.