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

Пишем программку:
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 (klt;gt;0) do
begin
if (k mod 10gt;0)and(i mod (k mod 10)gt;0) then f:=1;
k:=k div 10;
end;
if (f=0)and(i mod 10gt;0) then write(i, );
end;
end.
Программка написана.