program kk;
var n,k:integer;
begin
read(n);
 write('deliteli=');
for k:=1 to n do begin
if n mod k=0 then write(k,' ');
end;
end.

program hh;
var a:integer;
    j,d,m,g,f,h,k,n,i:integer;
begin
a:=1000;
repeat
begin
n:=a div 100;
k:=n div 10;
m:=n mod 10;
h:=a mod 100;
g:=h div 10;
f:=h mod 10;
end;
j:=g+f;
d:=m*k;
if j=d then write(a,' ');
inc(a)
until a=9999;
end.