// PascalABC.NET
begin
var n := ReadInteger;
var a := ArrRandom(n, -99, 99);
a.Println;
a.OrderByDescending(p -> Abs(p)).Print
end.
