Ответ:
//Введите натуральное число

readln(N);

//Создаем цикл для проверки каждого числа

for I := 1 to N do

begin

   //Создаем флаг, указывающий, является ли число делимым

   isDivisible := true;

   //Перебираем каждую цифру числа

   for J := 1 to Length(I) do

   begin

       //Если число не является делимым, установите флаг в false

       if (I mod StrToInt(I[J])) <> 0 then

           isDivisible := false;

   end;

   //Если число делимое, выведите его на экран

   if isDivisible then

       writeln(I);

end;