Запол­нить массив а [1..12] случайными целыми чис­лами в диапазоне от 1 до 20 и вывести на экран элементы массива со значениями, кратными 6 и большими 15

На интервале [1;20] кратно 6 и больше 15 только число 18.// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var a:=ArrRandom(12,1,20); a.Println;  a.Where(x->(x>15) and (x mod 6=0)).Printlnend.Результат4 6 5 13 9 3 4 17 20 11 18 218