Число с максимальным произведением цифр - Turbo Pascal

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

Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль

Решение задачи: «Число с максимальным произведением цифр»

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

max:=0;
for i:=n to m do
 begin
  j:=i;
  p:=1;
  while j>0 do
   begin
    p:=p*(j mod 10);
    j:=j div 10;
  end;
 if p>max then
  begin
   max:=p;
   imax:=i;//число с макс. произв. цифр
  end;
 end;

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

Переменная max инициализируется значением 0. Эта переменная будет использоваться для хранения максимального произведения цифр числа.
Переменная n инициализируется значением m. Это значение будет использоваться в цикле for для перебора всех возможных чисел от n до m.
Переменная m инициализируется значением n. Это значение будет использоваться в цикле for для перебора всех возможных чисел от n до m.
Переменная i инициализируется значением m. Это значение будет использоваться в цикле for для перебора всех возможных чисел от n до m.
Переменная j инициализируется значением i. Это значение будет использоваться в цикле while для вычисления произведения цифр числа.
Переменная p инициализируется значением 1. Это значение будет использоваться в цикле while для вычисления произведения цифр числа.
Выражение j mod 10 используется для получения последней цифры числа j.
Выражение j div 10 используется для получения десятичной части числа j.
Если произведение цифр числа p больше текущего максимального значения max, то значение max обновляется.
Если произведение цифр числа p равно текущему максимальному значению max, то значение imax обновляется на текущее значение i.
Цикл while завершается, когда значение j равно 0.
Цикл for завершается, когда значение i равно m.
Код завершается без использования вложенных списков.