Массив m получается из массива n следующим образом: сначала идут числа кратные трём,
но не кратные двум, в конец кратные двум, но не кратные трём, в середине - все остальные цифры.

program mass;
const
n = 10; {кол-во элтов массива можно поменять}

var
mass1 : array[1..n] of integer; {начальный массив}
mass2 : array[1..n] of integer; {отсортированный массив}
i, j : integer; {счетчик}
begin
randomize; {инициализируем генератор случ. чисел}
for i := 1 to n do
begin
mass1[i] := random(50); {заполняем случ. числами от 0 до 50}
write(mass1[i], ' '); {выводим рез для сравнения}
end;
j := 1;
{ищем кратные 3 но не кратные 2}
for i := 1 to n do
if (mass1[i] mod 3 = 0) and (mass1[i] mod 2 <> 0) then
begin
mass2[j] := mass1[i];
j := j + 1;
end;
{все остальные в т.ч. кратные и 2 и 3}
for i := 1 to n do
begin
if (mass1[i] mod 3 <> 0) and (mass1[i] mod 2 <> 0) then
begin
mass2[j] := mass1[i];
j := j + 1;
end;
if (mass1[i] mod 3 = 0) and (mass1[i] mod 2 = 0) then
begin
mass2[j] := mass1[i];
j := j + 1;
end;
end;
{кратные 2 но не кратные 3}
for i := 1 to n do
if (mass1[i] mod 3 <> 0) and (mass1[i] mod 2 = 0) then
begin
mass2[j] := mass1[i];
j := j + 1;
end;
{выводим результат}
writeln;
writeln;
for i := 1 to n do
write(mass2[i], ' ');

readln;
end.

Скачать решение.