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

На интервале [1;20] кратно 6 и больше 15 только число 18.

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var a:=ArrRandom(12,1,20); a.Println;
  a.Where(x->(x>15) and (x mod 6=0)).Println
end.

Результат
4 6 5 13 9 3 4 17 20 11 18 2
18