Напишите пожалуйста программу на паскале!!

Примерный код с пояснениями ниже. Удачи.

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 := random(50); {заполняем случ. числами от 0 до 50}
write(mass1, ' '); {выводим рез для сравнения}
end;
j := 1;
{ищем кратные 3 но не кратные 2}
for i := 1 to n do
if (mass1 mod 3 = 0) and (mass1 mod 2 <> 0) then
begin
mass2[j] := mass1;
j := j + 1;
end;
{все остальные в т. ч. кратные и 2 и 3}
for i := 1 to n do
begin
if (mass1 mod 3 <> 0) and (mass1 mod 2 <> 0) then
begin
mass2[j] := mass1;
j := j + 1;
end;
if (mass1 mod 3 = 0) and (mass1 mod 2 = 0) then
begin
mass2[j] := mass1;
j := j + 1;
end;
end;

{кратные 2 но не кратные 3}
for i := 1 to n do
if (mass1 mod 3 <> 0) and (mass1 mod 2 = 0) then
begin
mass2[j] := mass1;
j := j + 1;
end;
{выводим результат}
writeln;
writeln;
for i := 1 to n do
write(mass2, ' ');

readln;
end.

Сама пиши - там нет ничего сложного, надо только немного подумать мозгом.
Открывай учебник и вперед.. .
Может мне потом и зарплату за тебя получать?
А вообще в приличном обществе на такие просьбы к незнакомым людям принято посылать куда подальше.
Если есть конкретный вопрос - обращайся, а писать всё за тебя я не собираюсь.

// это не паскаль но должно быть что то типа этого)) )

m(100), n(100) // это массивы, 100 это для примера размерность

i=1
j=100
k=1
null=-1 // ну должно же быть какое-то число которого заведомо нет в массве m
// это ж учебная задачка и по жизни так и будет )))

do while( k<101)

if mod(m(k),3) = 0 then
n(i)=m(k)
i=i+1
m(k) =Null
else
if mod(m(k),2) =0 then
n(j)=m(k)
j=j-1
m(k) =Null
end if
end if
k=k+1
loop

k=1
do while( k<101)
if m(k) <> Null then
n(i)=m(k)
i=i+1
end if

k=k+1
loop