Найти все трехзначные числа, квадраты которых оканчиватюся тремя цифрами, которые и составляют искомые числа (на ABC pascal)

[Роял]

найти все трехзначные числа, квадраты которых оканчиватюся тремя цифрами, которые и составляют искомые числа!

[BDA]

Цикл по всем трехзначным числам.
Если (i * i) mod 1000 = i, то вывести число.
Хотя нет, не учел случая, что цифры могут быть в другом порядке.
Нужно проверить, что цифры одни и те же - "порезать" исходное число на цифры и увеличивать соответствующий цифре элемент массива из 10 элементов. Затем отрезать 3 цифры от квадрата числа и уменьшать соответствующие элементы. Если после этих операций массив заполнен только нулевыми значениями, то использованы те же цифры.

Способ "по хардкору"
Преобразовывать трехзначное число в 20битное число. Каждые два бита используются для задания количества использованных цифр данного значения. Затем останется сравнить два новых числа на равенство. Для этого способа решения потребуется завести 5 переменных и 19 строк кода (проверено).

[Роял]

можете написать программу мне надо завтра ее здать от этого зависит моя оценка

[BDA]

var
  i, j: integer;
  a, b, k: LongWord;
begin
  for i := 100 to 999 do
  begin
    {сюда нужно добавить 3 строки кода, которые правильно задают значения переменных a, b, k}
    for j := 1 to 3 do
    begin
      k := k + 1 shl ((a mod 10) * 2) - 1 shl ((b mod 10) * 2);
      a := a div 10;
      b := b div 10;
    end;
    if k = 0 then
        writeln(i);
  end;
end.

[Роял]

не могли бы вы их написать?