function elimina(c,n,q,s:integer):integer;
var f,d:integer;
begin
f:=1;
while n<>0 do
begin
inc(d);
if s-d+1<>q then
begin
elimina+=(n mod 10)*f;
f:=f*10;
end;
n:=n div 10;
end;
end;
var
a:array of integer;
n,n1,f,min,max:integer;
q,k,i,c,s:byte;
t:text;
begin
assign(t,'numere16.in');
reset(t);
read(t,n);
close(t);
n1:=n;
while n1<>0 do
begin
n1:=n1 div 10;
inc(q);
end;
setlength(a,q);
s:=q;
n1:=n;
while n1<>0 do
begin
c:=n1 mod 10;
n1:=n1 div 10;
for f:=n downto 1 do
begin
if (n mod f = 0) and (elimina(c,n,q,s) mod f = 0) then
begin
if f=1 then
begin
a[i]:=elimina(c,n,q,s);
inc(i);
end;
end;
if (n mod f = 0) and (elimina(c,n,q,s) mod f = 0) then break;
end;
dec(q);
end;
assign(t,'numere16.out');
rewrite(t);
if i=0 then
begin
write(t,'NU EXISTA');
close(t);
exit;
end;
max:=a[0];
min:=a[0];
for k:=0 to i-1 do
begin
if a[k]>max then max:=a[k];
if a[k]<min then min:=a[k];
end;
for min:=min to max do
for k:=0 to i-1 do
if min=a[k] then write(t,a[k],' ');
close(t);
end.
