Отыскать все естественные числа, не превосходящие данного n, которые делятся на

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