[Gravitas]

program Schitalovo;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,z,c:integer;
x:string;
begin
for i:=100 to 999 do begin
x:=IntToStr(i);
z:=StrToInt(x[1]);
for C:=2 to length(x) do
z:=z*StrToInt(x[c]);
if z<>0 then begin
if (StrToInt(x) mod z) = 0 then
WriteLn(x);
end;
end;
ReadLn;
end.

Вроде бы работает как надо.
Вставил подсчитывание. Чисел получилось 20. Т.е. по 4 числа в столбце.