Write a program that enters a natural number N and prints on the screen all natural

Write a program that enters a natural number N and prints on the screen all natural numbers not exceeding N and divisible by each of their digits.

We write the program:
program qq;
var i, n, k, f: integer;
begin
writeln (‘Vvedite n:’); readln (n);
for i: = 1 to n do
begin
k: = i; f: = 0;
while (k <> 0) do
begin
if (k mod 10> 0) and (i mod (k mod 10)> 0) then f: = 1;
k: = k div 10;
end;
if (f = 0) and (i mod 10> 0) then write (i, ”);
end;
end.
The program has been written.