Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не превосходящие N и

Пишем программу:program qq;var i,n,k,f:integer;beginwriteln(\'Vvedite n: \'); readln(n);for i:=1 to n dobegink:=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.Программа написана.