[ART]

Мой код получше вроде )

Код:

procedure Solve;
var
 i, j: integer;
begin
 for i := 100 to 999 do begin
  j := (i div 100) * ((i div 10) mod 10) * (i mod 10);
  if j <> 0 then
   if i mod j = 0 then begin
    //тут добавляем как надо
  end;
 end;
end;