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

Question

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

Answer 1

uses crt;
var n,i,j:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
for i:=1 to n do
 begin
  f:=true;
  j:=i;
  while (j>0)and f do
  if (j mod 10=0)or(i mod (j mod 10)<>0) then f:=false
  else j:=j div 10;
  if f then write(i,' ');
 end;
readln
end.