[march]

Код:

var
 n,i,meter:integer;
 s:string;
 b:boolean;
begin
 write('Vvedite chislo n: ');
 readln(n);
 for i:=1 to n do
  begin
   s:=inttostr(i);
   b:=true;
   for meter:=1 to length(s) do
    begin
     if b=true then
      if strtoint(copy(s,meter,1))<>0 then //как поступать с нулем?
                                                       //здесь ноль игнорируем
       if (i mod strtoint(copy(s,meter,1)))<>0 then
        b:=false;
    end;
   if b=true then
    writeln(i);
  end;
 readln;
end.

Вроде должно работать.