program Pascal;

type
MyArray = array[1..15] of integer;

var
X: MyArray;
i, j, temp: integer;

begin
// инициализация массива
X := (0, 1, 5, 0, 1, 0, 5, 1, 5, 0, 0, 1, 5, 0, 5);

// вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 15 do
write(X[i], ' ');

// сортировка массива
i := 1;
j := 15;
while i < j do
begin
while (X[i] = 0) and (i < j) do
inc(i);
while (X[j] = 5) and (i < j) do
dec(j);
if i < j then
begin
temp := X[i];
X[i] := X[j];
X[j] := temp;
end;
end;

// вывод отсортированного массива
writeln;
writeln('Отсортированный массив:');
for i := 1 to 15 do
write(X[i], ' ');
end.