Помогите,пожалуйста
Ввести натуральное число N и вывести все натуральные числа, не превосходящие N и делящиеся на каждую из своих цифр.
Пример: Введите N: 15
1 2 3 4 5 6 7 8 9 11 12 15

var n,i,k,d:integer; b:boolean;beginwrite('n = '); readln(n);for i:=1 to n do begin  b:=true;  k:=i;  while b and (k>0) do    begin    d:=k mod 10;    if d<>0 then b:=b and (i mod d = 0) else b:=false;    k:=k div 10;    end;   if b then write(i,' '); end; writeln;end.Пример:n = 251 2 3 4 5 6 7 8 9 11 12 15 22 24