Найдите натуральные числа, не превосходящие n, которые делятся на каждую из своих цифр.

var    n, i, a, k: integer;    f: boolean;begin    readln(n);    for i := 1 to n do        begin        a := i;        f := true;        while a > 0 do            begin            k := a mod 10;            a := a div 10;            if (k = 0) or (i mod k <> 0) then //если в числе есть 0, то считать что на 0 не делится, иначе замените = на <>                f := False;            end;        if f then               write(i, ' ');        end;end.