Посчитать количество всех чисел, которые меньше 1 000 000 - Turbo Pascal

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

Посчитать количество всех чисел, которые меньше 1 000 000, оканчиваются на 002 и делятся на 66. Помогите, пожалуйста

Решение задачи: «Посчитать количество всех чисел, которые меньше 1 000 000»

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

var
  n, k: longint;
 
begin
  k := 0;
  n := 1056; {16*66=1056}
  repeat
    if n mod 1000 = 2
      then begin
        inc(k);
        writeln(n)
      end;
    n := n + 66
  until n >= 1000000;
  writeln('Количество таких чисел: ', k);
  readln
end.

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

В этом коде используется цикл, который выполняется до тех пор, пока значение переменной n не станет больше или равным 1 000 000. Внутри цикла проверяется, делится ли n на 1000 без остатка (это можно проверить с помощью оператора модуля %). Если остаток от деления равен 2, то это число подходит под условие задачи (остаток от деления на 1000 равен 2, значит число заканчивается на 2, 12, 22, 32 и т.д., что соответствует условию меньше 1 000 000). В этом случае значение переменной k увеличивается на единицу (это счетчик количества чисел, которые меньше 1 000 000), и значение переменной n выводится в консоль (это нужно для проверки). Затем значение переменной n увеличивается на 66 (это сделано для того, чтобы перебрать все числа от 1056 до 1 000 000 с шагом 66), и цикл повторяется до тех пор, пока n не станет больше или равным 1 000 000. После выполнения цикла выводится сообщение с количеством чисел, которые меньше 1 000 000 (это значение переменной k), и затем программа ожидает ввода пользователя (это нужно для того, чтобы можно было ввести любое значение и нажать Enter).