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

Var   N,B:longint;   k:byte;BeginWrite('n = ');ReadLn(n);For n:= 1 to n do    Begin    k:=1;    B:=n;    While B>0 do       Begin       if B mod 10<>0 then          Begin          if n mod (B mod 10) <> 0 then k:=0          End       else k:=0;       B:=B div 10       End;    if k=1 then Write(n,' ')    End;End.