Program Arrays;
var a:array[0..11]of integer;
type ta1 = array of Integer;
var a1: ta1;// кратные
type ta2 = array of Integer;
var a2: ta1;// некратные
i,min:integer;
begin
for i:=0 to 11 do
begin
read(a[i]);
end;
min:= a[0];
for i:=0 to 11 do
begin
if (a[i] < min) then min:= a[i];
end;
for i:=0 to 11 do
begin
if (a[i] mod min = 0) then
begin
SetLength(a1,length(a1)+1);
a1[length(a1)-1]:=a[i];
end
else
begin
SetLength(a2,length(a1)+1);
a2[length(a2)-1]:=a[i];
end;
end;
for i:=0 to length(a1)-1 do
begin
writeln(a1[i]);
end;
for i:=0 to length(a2)-1 do
begin
writeln(a2[i]);
end;
end.