Трехзначное число в 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