Паскаль ABC............................................

Begin
var a:=ArrRandom(20, -100, 100);
var k:=a.Where(t-gt;((t mod 3 =0) or (t mod 5 =0)));
a.Print;
println();
println(Cумма: , k.Sum);
println(Кол-во: ,k.Count);
println(Ср ариф: ,k.Average);
end.