Найти количество целых трехзначных чисел, произведение цифр которых равно N(вводится с клавиатуры). создать программу на Паскале

Предыдущий
вопрос Следующий
вопрос

program ThreeDigitNumbers;

var
N, num, digit1, digit2, digit3, count: integer;

begin
count := 0;

write('Enter N: ');
readln(N);

for num := 100 to 999 do
begin
digit1 := num div 100;
digit2 := (num div 10) mod 10;
digit3 := num mod 10;

end;

writeln('Total count: ', count);

end.