program PascalGuru;
var n,i,nn:integer;
b:boolean;

begin
write('N: '); readln(n);

for i:=10 to n do
begin
b:=true;
nn:=i;

repeat
if nn mod 10>0 then
if i mod (nn mod 10)>0 then b:=false;
if nn mod 10=0 then b:=false;
nn:= nn div 10;
until nn=0;

if b then writeln(i);
end;

readln;
end.