Найти двузначное число, равное утроенному произведению его цифр. ответ: 15,24.

Var i,j:integer;
begin
for i:=1 to 9 do
 for j:=0 to 9 do
  if i*10+j = 3*i*j then writeln(i*10+j);
end.

Результат:
15
24

Если надо программу для поиска такого числа, то как вариант:

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

ответ:
15
24