Составьте программу вывода на экран всех натуральных чисел

function CheckDiv(const x : LongWord) : Boolean;
var
    Result : Boolean;
    xn : LongWord;
begin
    Result := True;
    xn := x;
    repeat
        if (xn mod 10 <> 0) then
            Result := (x mod (xn mod 10) = 0);
        xn := xn div 10;
    until ((Not Result) Or (xn = 0));
    CheckDiv := Result;
end;
 
var
    i, n : LongWord;
begin
    Write('n='); ReadLn(n);
    for i := 1 to n do
        if CheckDiv(i) then
            Write(i, ' ');
end.

var i,n:integer;
function del_na_tsif(x:integer):boolean;
var x1:integer;
    f:boolean;
begin
 x1:=x;f:=true;
 while (x>0)and(f) do
  begin
   if (x mod 10=0)or(x1 mod(x mod 10)<>0) then f:=false;
    x:=x div 10
  end;
 del_na_tsif:=f 
end;
begin
 writeln('n=?');
 readln(n);
 for i:=1 to n do if del_na_tsif(i) then write(i,' ');
 readln
end.