uses crt;
var
i, j, n, temp: integer;
const a:array [1..5] of integer = (2, 0, -5, -8, 6);
begin
clrscr;
n := 5;
for i := 1 to n do
writeln(a[i], ' ');
for i := 1 to n do
if a[i] < 0 then
for j := i + 1 to n do
begin
temp := a[j];
a[j] := a[j - 1];
a[j - 1] := temp;
end;
for i := 1 to n do
write(a[i], ' ');
readln;
end.