Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число - Pascal

Формулировка задачи:

В общем не доходит до меня тупого, безграмотного, парня, которого не берут в армию, как сделать эту задачу с помощью циклического алгоритма: ( Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число, записываемые одними единицами, двойками, тройками и т. д.) Сам я ломал голову над этим часа 3, но без успешно, смог сделать только в линейном виде, напишу, чтобы вы не думали, что я сам не пытался, а решил просто на других свою проблему скинуть.

Program zad5;
uses crt;
Var a,b,c,d,e,f,g,h,k,z,m,n,o,p,r,s,t,u,x: real;
begin
clrscr;
z:=777;
a:=111111;
b:=222222;
c:=333333;
d:=444444;
e:=555555;
f:=666666;
g:=777777;
h:=888888;
k:=999999;
m:=a/z;
writeln('chtobi poluchit 111111,chislo 777 nujno unnojit na',m:2:2);
n:=b/z;
writeln('chtobi poluchit 222222,chislo 777 nujno unnojit na',n:2:2);
o:=c/z;
writeln('chtobi poluchit 333333,chislo 777 nujno unnojit na',o:2:2);
p:=d/z;
writeln('chtobi poluchit 444444,chislo 777 nujno unnojit na',p:2:2);
r:=e/z;
writeln('chtobi poluchit 555555,chislo 777 nujno unnojit na',r:2:2);
s:=f/z;
writeln('chtobi poluchit 666666,chislo 777 nujno unnojit na',s:2:2);
t:=g/z;
writeln('chtobi poluchit 777777,chislo 777 nujno unnojit na',t:2:2);
u:=h/z;
writeln('chtobi poluchit 888888,chislo 777 nujno unnojit na',u:2:2);
x:=k/z;
writeln('chtobi poluchit 999999,chislo 777 nujno unnojit na',x:2:2);
readln;
end.

Решение задачи: «Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число»

textual
                            Листинг программы 
                        
                            For i:=100 to 999 do