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

Var

N, B:longint;

k:byte;

Begin

Write ('n = '); ReadLn (n);

For n: = 1 to n do

Begin

k:=1;

B:=n;

While B>0 do

Begin

if B mod 100 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.