Программа вычисления суммы четырехзначных чисел, в десятичной записи которых есть два нуля - Pascal

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

Помогите, пожалуйста, написать программу. Условие задачи: "Составить программу вычисления суммы четырехзначных чисел, в десятичной записи которых есть два нуля." Нужно задействовать операторы div и mod.

Решение задачи: «Программа вычисления суммы четырехзначных чисел, в десятичной записи которых есть два нуля»

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

var
  s:longint;
  n,i,j:integer;
begin
  s:=0;
  for i:=1000 to 9999 do begin
    j:=i;
    n:=0;
    while j>0 do begin
      if j mod 10=0 then n:=n+1;
      j:=j div 10
    end;
    if n>1 then s:=s+i
  end;
  writeln('s=',s);
end.

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

Введен тип переменных и их инициализация:
- s: longint; (переменная для хранения суммы)
- n, i, j: integer; (переменные для цикла и проверки разрядов числа)
Инициализация переменной s равной 0.
Задается диапазон чисел для перебора (от 1000 до 9999).
Запускается цикл по всем числам в диапазоне.
Внутри цикла переменной j присваивается текущее число, а переменной n устанавливается счетчик количества нулей в числе.
Запускается внутренний цикл, который проверяет каждый разряд числа (сначала десятки, потом единицы и т.д.).
Если текущий разряд равен нулю, то к переменной n прибавляется единица.
После внутреннего цикла переменная j делится на 10 (чтобы перейти к следующему разряду).
Если переменная n больше 1 (то есть число имеет два нуля), то к переменной s прибавляется текущее число.
После внешнего цикла выводится значение переменной s.