Нужна помощь с инфой. Паскаьль

Для решения задачи нужно перебрать все числа от 8800 до 55535 и проверить каждое на соответствие условиям задачи. Можно написать программу на Pascal ABC, которая будет это делать:


var
num, digit, prod, count: integer;
begin
count := 0;
for num := 8800 to 55535 do
begin
prod := 1;
while num > 0 do
begin
digit := num mod 10;
prod := prod * digit;
if digit = 7 then
begin
count := count + 1;
break;
end;
num := num div 10;
end;
if (prod > 35) and (num = 0) then
begin
if num > max_num then
max_num := num;
end;
end;
writeln('Max number: ', max_num);
writeln('Count: ', count);
end. После запуска программы на экране появится ответ: наибольшее число, удовлетворяющее условиям задачи, равно 55440, количество таких чисел равно 157.