Помогите написать программу.

Question

Помогите написать программу.

---

Answer 1

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

begin
  var s:=ReadSeqIntegerWhile(k->k<>0)
      .Where(k->(k mod 6=0) and (k mod 10=4)).Sum;
  Writeln(s)
end.