===== PascalABC.NET =====
begin
var n := ReadInteger('Число элементов =');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Where(p -> p mod 3 = 0).OrderDescending.Println
end.
