// PascalABC.NET
begin
var n := ReadInteger;
var a := ArrRandom(n, -99, 99);
a.Println;
var b := a.Where(p -> p < 0).ToArray;
b.Println;
var c := a.Where(p -> p > 0).ToArray;
c.Print
end.
