program Pascal;
var
X: array[1..15] of integer;
i, j, temp: integer;
begin
// Инициализация массива
X := (0, 1, 0, 5, 1, 0, 5, 5, 0, 1, 5, 0, 0, 1, 5);

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

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