Ответ:

var

 pr, i, temp :integer;

begin

 pr := 1;

 for i := 100 to 999 do begin

   temp := i;

   while ( temp <> 0) do begin

     pr := pr * (temp mod 10);

     temp := temp div 10;

   end;

     if(pr <> 0) then

       if(i mod pr = 0) then

         write(' ',i,' ');

     pr := 1;

 end;

end.