Найти первое 3-хзначное число, кратное 8-ми, у которого первая и последняя цифры равны - Pascal ABC

Найти первое 3-хзначное число, кратное 8-ми, у которого первая и последняя цифры равны

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

var n:integer;
begin
  n:=100;
  repeat
    inc(n);
  until(n>1000)or((n mod 10)=(n div 100))and((n mod 8)=0);
  writeln('result:=',n);
end.

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

Объявлена переменная n типа integer (целое число).
Переменная n инициализируется значением 100.
Запускается цикл repeat-until.
Внутри цикла значение переменной n увеличивается на 1.
Цикл повторяется до тех пор, пока значение переменной n не станет больше 1000 или не будет выполнено условие ((n mod 10)=(n div 100)) и ((n mod 8)=0).
Если условие выполняется, то цикл прекращается и выполняется операция записи в консоль значения переменной n с помощью функции writeln.
Значение переменной n при выводе заменяется на result:=, чтобы отобразить результат выполнения программы.