Напишите программу, которая в последовательности 10 натуральных чисел определяет сумму чисел, кратных 6. программа должна вывести число-сумма чисел,кратных 6

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger(10).Where(x->x mod 6=0).Sum)
end.