Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру. - Turbo Pascal

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

Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру.

Решение задачи: «Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру.»

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

var
  k, i : integer;
begin
  k := 0;
  for i := 1000 to 9999 do
    if i mod 10 <> 0 then
      if (i mod 23 = 0) and (i mod (i mod 10) = 0) then
      begin
        inc(k);
        write(i:5)
      end;
  writeln;
  writeln('количество таких чисел: ', k);
  readln
end.

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

В начале объявляются переменные k и i типа integer.
Переменная k инициализируется значением 0.
Затем происходит цикл for, который проходит по числам от 1000 до 9999.
Внутри цикла проверяется, делится ли число на 10 без остатка. Если нет, то это условие игнорируется.
Далее проверяется, делится ли число на 23 без остатка. Если да, то это условие также игнорируется.
Затем проверяется, делится ли число на последнюю цифру числа (которая также является последней цифрой самого числа). Если да, то это условие игнорируется.
Если все три условия выполняются, то переменная k увеличивается на 1, а число выводится на экран с помощью функции write.
После окончания цикла выводится общее количество найденных чисел с помощью функции writeln.
Затем с помощью функции readln считывается ввод пользователя.