Найти все двузначные числа, которые равны утроенному произведению своих цифр - Pascal

Создать программу, которая находит все двузначные числа, которые равные тройному свой умноженние цифр

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

var 
  i : integer;
begin
  for i := 10 to 99 do
    if 3*(i mod 10)*(i div 10) = i then write(i:3);
  writeln;
end.

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

В данном коде:

Объявляется переменная i типа integer (целое число).
Задаётся цикл for, который будет выполняться от i = 10 до i = 99 (включительно).
Внутри цикла проверяется условие: 3*(i mod 10)*(i div 10) = i, где:
- i mod 10 возвращает остаток от деления числа i на 10 (первая цифра числа),
- i div 10 возвращает целую часть от деления числа i на 10 (десятки числа),
- 3*(i mod 10)*(i div 10) вычисляет утроенное произведение цифр числа i.
- Если это условие выполняется, то выводится значение переменной i с шагом 3 (то есть числа 13, 26, 39 и т.д.).
После выполнения цикла выводится символ новой строки writeln. Таким образом, данный код находит все двузначные числа, которые равны утроенному произведению своих цифр, и выводит их с шагом 3.