===== PascalABC.NET =====
begin
var a := ArrRandom(30, 2, 5);
a.Println.Count(p -> p > 3).Println
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(30, 2, 5);
a.Println.Count(p -> p > 3).Println
end.