Слишком коротко. Напишите как минимум 20 символов, чтобы получить лучший ответ.

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