program uzd8;
const n=12;
TYPE mas=array[1..n] of integer;
var x:mas;
    i,j,T:integer;
    procedure bubble(var x:mas; n:integer);
    var i,j,T:integer;
begin
     for i:=1 to n do
         for j:=1 to n-1 do
         if (x[i]<0) and (x[j]<0) and (x[i]>x[j]) then
         begin T:=x[pred(j)]; x[pred(j)]:=x[j]; x[j]:=T;
         end;

end;
begin
for i:=1 to n do begin
    writeln(' ievadi', i,'-to masiva elementu===>');
    readln(x[i]);
    end;
    writeln;
    for i:=1 to n do write(x[i], ' ');
for i:=1 to n do begin
    if x[i]<0 then
    bubble(x,n);
    end;
writeln;
for i:=1 to n do if x[i]<0 then
    write(x[i]:4);
    end.