как найти наибольшее трехзначное число,у которого произведения цифр- двузначное число, а произведение цифр равно 72

1   2   3   4   5   6   7   8   9   10   11   12  var N: word; begin write('N = '); readln(N); { <-- вводим трехзначное число } writeln; { Находим и выводим первую цифру числа как целую часть при делени на 100: } writeln('Первая цифра числа: ', N div 100); readln