Приписать к 1022 слева и справа по одной цифре так чтобы полученное шестизначное число делилось на 7, 8, 9 - Pascal ABC

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

Приписать к 1022 слева и справа по одной цифре так что бы полученное шестизначное число делилось на 7,8,9 программа должна быть через циклы заранее спасибо просто я не понял задачу

Решение задачи: «Приписать к 1022 слева и справа по одной цифре так чтобы полученное шестизначное число делилось на 7, 8, 9»

Листинг программы

var
  i, j, r : integer;
begin
 r:=0;
 for i:=1 to 9 do begin
   for j:=0 to 9 do
     if ((i*100000+10220+j) mod 7=0) and ((i*100000+10220+j) mod 8=0) and ((i*100000+10220+j) mod 9=0)
      then begin r:=(i*100000+10220+j); break end;
   if r<>0 then Break
 end;
 if r=0 then WriteLn('Ничего подходящего не нашлось')
 else WriteLn('Нашлось. Искомое число = ',r)
end.

Объяснение кода листинга программы

Создается переменная r типа integer для хранения результата.
Переменная r инициализируется значением 0.
Запускается цикл for для перебора чисел от 1 до 9.
Внутри цикла запускается вложенный цикл for для перебора чисел от 0 до 9.
В каждой итерации проверяется условие:
- Проверяется, делится ли сумма текущего числа и следующего числа на 7 без остатка.
- Проверяется, делится ли сумма текущего числа и следующего числа на 8 без остатка.
- Проверяется, делится ли сумма текущего числа и следующего числа на 9 без остатка.
Если все условия выполняются, то значение переменной r обновляется и цикл прерывается командой break.
После завершения внутреннего цикла проверяется значение переменной r.
Если значение r не равно 0, то выводится сообщение Ничего подходящего не нашлось.
Если значение r равно 0, то выводится сообщение Нашлось. Искомое число =, и значение переменной r.