Сформировать массив из n случайных чисел от 0 до 86. Найти сумму чисел кратных 3.

//PascalABC.Net 3.2 сборка 1318begin  var ar:=ArrRandomInteger(ReadInteger(),0,86).Println;  write(ar.Where(x -> x mod 3=0).sum);end.