Дан массив натуральных чисел. найти сумму элементов кратных числу к

//PascalABC.Net 3.1.0.1200begin    var a := ArrRandomInteger(10, 1, 100);    var k := ReadInteger('k =');    writeln(a.Where(x -> x mod k = 0).Sum);end.