Трехзначное число в 5 раз больше произведения своих цифр. Какое это число?

var
a,b,c,i: integer;
begin
  for i:=100 to 999 do begin
     a:=i div 100;
     b:=(i-a*100) div 10;
     c:=i-a*100-b*10;
     if a*b*c=i then
     begin
        writeln(i);
        break;
     end;
   end;
end;

Это число 175
1*7*5=35*5

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  for var a:=1 to 9 do
    for var b:=1 to 9 do
      for var c:=1 to 9 do
        if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.

Результат
175